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SFCTIUN  1 - INTUODt’CTU ) N 


1.1  MACKCHOIJND 

Computer  Sciences  Corporation  (CSC)  and  a number  of  agencies  and  other 
companies  are  engaged  in  a multiyear  effort  entitled  the  Integrated  Nuclear  Com- 
munications Assessment  (INCA)  Program.  At  a review  briefing  of  this  program,  a 
question  related  to  the  general  INCA  problem  was  posed  which  required  a rapid  answer. 

The  question  was  whether  the  approximately  equal  apportionment  of  transoceanic- 
trunking  for  C.S.  command  and  control  circuits  among  submarine  cable,  commercial 
satellites,  and  military  satellites  is  the  best  apportionment  from  the  standpoint  of 
survivability.  In  short,  what  is  the  "best"  transoceanic  trunking  medium  "mix"-*  It 
was  deemed  of  sufficient  urgency  to  merit  a separate  concentrated  effort. 

Integrated  Nuclear  Communications  Assessment  (INCA),  Transatlantic  Trunk 
l till/atlon,  final  Report  (Pop  Secret),  Computer  Sciences  Corporation  (CSC),  June 
197$  is  the  result  of  this  effort. 
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SK r HON  2 DATA  MASK  STHt  CTt  BK  AND  ANALYSIS  l’lUHiKAMS 

2.1  INTltODl  CTION 

in  this  section,  the  various  software  components  which  were  used  in  the  study 
analysis  are  described.  Basically,  there  is  a data  base,  or  assets  file,  and  the 
associated  utility  programs  to  expedite  modification  of  the  data.  There  are  also 
network  analysis  programs  which  examine  the  networks  described  by  the  given  till’ 
(which  may  represent  a degraded  situation!  and  provide  connectivity  and  routing 
information. 

2.2  TOTAlC*L^)ATA  BASK 
2.2.1  Data  Base 

A data  base  describing  transatlantic  communications  was  created  to  aid  in  the 
performance  of  the  task  analyses.  This  data  base  is  on  the  IBM  270  155  computer  at 
DCFC  in  Heston,  Virginia,  and  is  maintained  by  the  7’OTA I, CiD data  base  management 
system.  In  accordance  with  l)CA  data  base  naming  conventions,  it  is  called  HFBTA  1 
(Heston  Batch  Transatlantic  base  number  11.  The  actual  accurate  data  base  exists  only 
on  the  classified  system.  An  unclassified  facsimile  exists  on  the  unclassified  system 
to  aid  in  program  development. 

This  data  base  was  designed  as  a model  of  the  communications  network.  The 
network  consists  of  four  types  of  components:  circuits,  trunks,  links,  and  sites.  Four 
master  files  have  been  created  to  contain  the  elements  of  these  components.  Two 
variable-entry  files  provide  cross-reference  among  the  elements  of  the  master  files. 
This  enables  analysis  programs  to  determine  such  things  as  the  trunks  that  a circuit 
traverses,  the  trunks  which  traverse  a given  link,  or  the  links  which  emanate  from  a 
given  site.  The  relationship  among  the  files  are  shown  in  Figure  2-1. 

A description  of  each  file  is  given  below.  The  DC  A conventions  for  naming 
circuits,  trunks,  links,  and  sites  are  given  in  DC  A circular  .710-65-1. 


2.2.2  Circuit  Data  Kile  lUMC'T) 

Records  in  this  file  describe  individual  circuits  in  the  communications  network. 
Kach  record  contains  the  Command  Communications  Service  Designator  (CCSD),  a 
status  flag,  restoration  priority,  type  of  routing,  circuit  multiplexing  Indicator, 
originating  site  and  facility,  and  terminating  site  and  facility . 

These  records  contain  a linkage  to  the  circuit-trunk-site  variable  file  (KVCT), 
which  indicates  all  trunks  the  circuit  traverses,  anil  the  end  sites  of  these  trunks. 

I sers  can  obtain  the  more  detailed  data  about  all  links  and  sites  traversed  bv  following 
the  RMTR  linkages  to  the  RVTL  file,  if  needed. 

2.2. d frunk  Da ta  l-'ilc  (RMTR1 

Records  in  this  file  describe  individual  trunks.  Kach  record  contains  the  DC  A 
trunk  identifier,  a status  flag,  restoration  category,  capacity,  bandwidth,  number  of 
channels  available,  originating  site  and  facility,  and  terminating  site  and  facility. 

These  ree  'rds  also  contain  linkages  to  the  circuit-trunk-site  variable  file  (R  VC  H 
and  the  trunk -link- site  variable  file  (RVTU.  This  facilitates  retrieval  of  all  circuits 
using  a given  trunk,  and  all  links  and  sites  which  a trunk  traverses. 

2.2.4  Id nk  Data  Kile  (RMl.Kf 

These  records  describe  each  link  in  the  communication  network.  Kach  record 
contains  a DC  A link  identifier,  status  flag,  transmission  medium  code,  and  site  and 
facility  designation  for  the  link  end  points. 

These  records  are  linked  to  the  trunk- link- site  variable  file  (RVTL).  This 
enables  users  to  determine  all  trunks  which  use  a given  link. 

2.2.5  Site  Data  File  (RMSll 

These  records  describe  each  node  in  the  network.  Kach  record  contains  a DCA 
site  abbreviation,  a status  flag,  state  or  country  of  location,  and  coordinates  of  the 
site. 
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Those  records  are  linked  to  the  KVTI.  and  to  the  KVTC.  There  are  two  linkages 
to  HVTL,  so  a trunk  may  l>e  traced  either  forward  or  backward. 

2 . 2 . t<  t d rcuit  Site  - Trunk  Kile  (KVt'T ) 

These  records  cio ,;?s- reference  the  circuit,  site,  ami  trunk  files,  l'noh  record 
contains  a circuit  identifier  (t't'Sl)l,  a trunk  identifier,  the  abbreviation  of  the  site  at 
which  the  trunk  originates,  and  the  site  at  which  the  trunk  terminates.  Thus,  there  is 
a separate  record  on  U VC T for  each  trunk  which  a circuit  traverses.  Fach  record  is 
linked  to  the  corresponding  reconi s in  the  three  master  files  by  a chain  of  KVt'T  records, 
rhus,  each  KMt'T  record  is  linked  to  a chain  of  Htt'T  records  which  describe  all  trunks 
and  sites  the  circuit  traverses.  Fach  KMTK  record  is  linked  to  a chain  of  KVT'T  records 
which  describes  which  circuits  traverse  that  trunk,  and  each  site  is  linked  to  a chain 
which  describes  which  circuits  and  trunks  emanate  from  that  site. 

2 . 2 . 7 I'runk Site  - 1 ink  File  (KVTI.) 

KVTL  records  cross-reference  the  trunk,  site,  and  link  files.  Fach  record 
contains  a tnmk  identifier,  a link  identifier,  the  location  at  which  the  link  originates, 
and  the  location  at  which  the  link  terminates.  Fach  trunk  is  linked  to  a chain  giving  all 
the  sites  and  links  which  the  trunk  traverses.  Fach  UM1  K record  is  linked  to  a chain 
listing  all  trunks  which  use  that  link.  Fach  site  is  linked  to  two  chains,  one  giving  all 
links  which  originate  at  that  site,  and  another  giving  all  links  which  terminate  at  that 
site. 

Implicit  in  the  foregoing  is  the  fact  that  there  is  a two  level  hierarchical  description 
of  all  circuits.  Fach  circuit  is  described  in  terms  of  the  trunks  it  traverses.  Fach 
trunk  is  described  in  terms  of  the  link  it  traverses.  However,  circuits  are  not  directly 
described  in  terms  of  links  traversed. 


SECTION  3 - ANALYSIS  PROGRAMS 


3.1  EMP  INTKRPO  LATH )N  AND  LOOKl’P  PROGRAM 

l’his  paragraph  contains  a description  of  the  EMP  interpolation  and  lookup 
program. 

Paragraph  3.1.1  provides  a summary  of  the  main  FORTRAN  program,  includ 
ing  requirements,  constraints,  and  general  design. 

Paragraph  3.1.2  provides  a description  of  the  two  FORTRAN  subroutines 
used  by  the  main  program. 

3.1.1  Program  Description 

3. 1. 1. 1 Requirements 

Given  a list  of  nuclear  events  and  a list  of  targets,  this  program  will  calcu- 
late various  FMP  field  strength  parameters  for  each  target-event  combination. 

3 . 1 . 1 . 2 Constraints 

1.  Height  of  burst  may  only  be  50,  100,  250,  or  400  kilometers. 

2.  Yield  may  only  be  1.25  or  5.00  megatons. 

3.  Latitude  of  each  event  should  be  between  30  and  00  degrees.  Values 
outside  this  range  may  be  used,  but  the  results  will  be  distorted  . 

4.  Program  dimension  statements  are  set  to  handle  a maximum  of  25 
events  and  a maximum  of  200  targets. 

3. 1.1.3  Inputs 

There  are  two  data  sets  read  by  the  main  routine:  the  event  data  and  the 
target  data. 

3 . 1 . 1 . 3. 1 Event  Data  Input 

The  event  data  set  consists  of  one  record  containing  the  number  of  events, 
followed  by  a record  for  each  event. 


II)  No.  is  a three-digit  Identification  numlM>r  for  each  target. 

Latitude  is  entered  in  degrees,  minutes,  and  seconds,  followed  by  a letter  N 
or  S denoting  north  or  south. 

Longitude  is  entered  in  degrees,  minutes,  and  seconds,  followed  by  a letter  V.  or 
W denoting  east  or  west. 

In  the  batch  version  of  this  program,  event  and  target  data  are  entered  on  cards 
and  read  from  KOKTUAN  unit  5. 

In  the  time  share  operation  (TSO)  version,  event  and  target  data  are  first  entered 
into  separate  data  files  and  then  allocated  to  KOKTUAN  units  11  and  10,  respectively. 

3. 1.1. 4 Output 

Output  from  the  program  consists  of  a report  written  to  KOKTUAN  unit  <>.  In 
the  batch  version  of  the  program,  tlds  goes  to  the  line  printer.  In  the  TSO  version, 
this  goes  to  the  terminal  used.  Kigure  tt-d  shows  a sample  output  report. 
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Figure  d-:t.  Sample  Output 


KV  is  the  event  sequence  munlier. 

TO  is  the  target  identification  number. 

Target  angle  (T)  is  the  bearing  angle  from  event  to  target  clockwise  with 
respect  to  true  north. 
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Target  angle  (M)  is  the  bearing  angle  from  event  to  target  clockwise  with 
respect  to  magnetic  north. 

Total  F.  S.  is  the  total  EMP  field  strength  in  kilovolts  per  meter. 

3. 1.1. 5 Information  Processing 

The  program  can  be  divided  into  four  major  sections: 

1.  Reading  the  event  data 

2.  Reading  the  target  data 

3.  Computing  the  EMP  effects 

4.  Printing  the  results. 

3 . 1 . 1 . 5. 1 Reading  the  Event  Data 

Coordinates  given  in  degrees,  minutes,  seconds,  and  E/W  or  N/S  are 
converted  to  positive  or  negative  degrees  and  fractional  degrees.  These  are 
converted  to  radians  as  required  by  FORTRAN  trigonometric  functions. 

An  angular  range  to  the  horizon  from  each  event  is  computed  to  determine  the 
maximum  range  of  effect.  (See  Figure  3-4.  ) 

Finally,  the  deviation  angle  from  true  north  to  magnetic  north  is  calculated. 

3 . 1 . 1. 5. 2 Reading  the  Target  Data 

Coordinates  given  in  positive  or  negative  degrees  and  fraction  of  degrees  are 
converted  to  radians  and  stored. 


3. 1.1. 5. 3  Computing  the  EMP  Effects 

Major  computations  in  this  appendix  pertain  to  determining  the  range  and 
bearing  from  each  event  to  target.  If  the  target  is  over  the  horizon  from  an  event, 
no  effect  is  assumed.  (See  Figure  3 -5  for  an  explanation  of  range  and  bearing  calcu- 
lations. 

The  great  circle  distance  P PQ  is  given  by  considering  the  spherical  triangle 
made  by  P,  PQ,  and  the  pole  N. 
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Figure  3-4.  Angular  Range  Computation 
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Figure  3-5. 
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Lot  the  radius  of  the  earth  1. 


Then  the  length  l’N  along  the  m 'ridian  is 


and 


and  the  angle 


l1  N P = m - m 
o o 

Then  the  length  PoP  along  the  great  circle  is  given  by  c,  where 

cos  e cos  b cos  a ' sin  b sin  a cos  (m0  - m)  (3-i) 

and  the  ;uigle  subtended  at  the  earth's  center  by  PQ  ;uid  P is  c radians. 

The  great  circle  through  P ;uid  PQ  cuts  the  earth  into  two  hemispheres.  E P 
is  perpendicular  to  PPQ  :uid  is  in  the  plane  formed  by  the  great  circle.  The  a/.imu 
th:il  bearing  of  the  line  of  sight  HP  to  the  geographic  north  is  the  angle  the  great 
circle  makes  to  the  geographic  north  at  P{).  If  this  bearing  angle  is  It 


who  re 

C m - m 

o 

and  e was  given  previously. 


sin  It  sin  C 

sin  b sin  e 


sin  (m  - mi 


(3-2) 


Thus,  the  proeedure  is  to  tind  e using  Fquation  3-1;  anti  then  use  the  value  of  e to  find  H 
the  azimuthal  hearing;  single  from  Equation  3-3.  The  range  is  simple  angle  C in 
ratlians  times  the  radius  of  the  earth. 

Next,  the  hearing  angle  from  true  north  is  ealeulateil  by  determining  the 
quadrant  of  the  bearing  angle.  (See  Figure  3-ti.  ) 

Quadrant  Cor  rue  t ion 

I A NO  It  ANfi  It 

11  ANC.lt  277--ANC.lt 


ANCIt  77+  ANC.lt 


(Ill 

(H 

TLON  > Fl.ON 

TLON  < FLON 

TLAT  > FLAT 

TLAT  > FLAT 

(im 

(ivi 

TLON  > FLON 

TLON  < FLON 

T LAT < FLAT 

Tl.A  T S FLA  T 

EL  A r 

Fvent  latitude 

FI. ON 

Fvent  longitude 

TLA  r 

Target  Latitude 

TLON 

Target  Longitude 

Figure  — (» . Defining  Hearing  Angle  Quadrant 

The  bearing  angle  1‘IIFTA  is  eorreetetl  for  measurements  relative  to  10  F ami 
15  N.  Subroutine  1NTFHP  is  railed  to  retrieve  and  interpolate  the  FMI’  values. 

3. 1.1.5.  I Printing  the  Itesults 

Figure  shows  a sample  printout.  \ page  restore  and  headings  are  printed 
every  35  lines. 

The  only  FMI’  value  printed  is  total  field  strength.  The  other  values  are  avail- 
able in  array  \ if  they  should  be  required  in  the  future. 


>{.1.1.6  Data  Organizn 


Variable  Name 


ANG1 
ANGH  (25) 
ANGM  (25) 


ELAT  (25) 
ELATR  (25) 
ELON  (25) 
ELONR  (25) 
HOB  (25) 

ID (200) 


ITARU 


Usage 

Angular  distance  from  event  to  North  Pole 
Portion  of  event  latitude  in  degrees 
Portion  of  event  latitude  in  minutes 
Bearing  angle  in  degrees 
Bearing  angle  in  degrees  to  magnetic  north 
Angle  to  horizon  from  each  event 

Magnetic  correction  angle  from  event  to  magnetic  north 

Portion  of  event  latitude  in  seconds 

Angular  distance  from  target  to  North  Pole 

Angle  at  center  of  earth  to  event  and  target  locations 

Surface  distance  in  kilometers  between  event  and  target 

Event  latitudes  in  degrees 

Event  latitudes  in  radians 

Event  longitudes  in  degrees 

Event  longitudes  in  radians 

Event  heights  of  burst  in  kilometers 

Target  identification  codes 

Constant  of  1HE 

Event  data  set  unit  number 

( 5 for  batch  version,  10  for  TSO  version) 

Constant  of  1I1S 
Targets  data  set  unit  number 
( 5 for  batch  version,  11  for  l'SO  version) 

Loop  index  used  for  events 
Loop  index  used  for  targets 
Loop  index 

Event  latitude  code  "N"  or  ”S" 

Event  longitude  code  "E"  or  "W" 
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Variable  Name 


Usage 


NEV 
NT  AH 
OD 
OM 
OS 

PONP 

PI 

PI  2 

HAD 

HEA 

THETA 

TLAT  (200) 

TLATR  (200) 

TLON  (200) 

TLONR  (200) 

V (10) 

W 

YIELD  (25) 


Number  of  events 
Number  of  targets 

Portion  of  event  longitude  in  degrees 
Portion  of  event  longitude  in  minutes 
Portion  of  event  longitude  in  seconds 
Angle  at  North  Pole  between  event  and  target 
jr  3. 14159265 
ff/2 

Factor  to  convert  degrees  to  radians 
Radius  of  the  earth  in  kilometers 
Bearing  angle  used  in  data  retrieval  call 
Target  latitude  in  degrees 
Target  latitude  in  radians 
Target  longitude  in  degrees 
Target  longitude  in  radians 
Retrieved  EMP  data  values 
Factor  to  convert  radians  to  degrees 
Event  yield  in  megatons 


3. 1.1.7  Routines  Used 


Subroutine  INTERP  - See  Section  3. 1.2.1. 

The  following  FORTRAN  library  functions  are  used: 

SIN  - Sine 

COS  - Cosine 

ARSIN  - Inverse  sine 

ARCOS  - Inverse  cosine 

MOD  - Modulus  remainder  function 
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1 

/ 


:t . 1 . 1 . s Order  of  Program  Deck  Including  JCL  Cards  (for  DC  EC  Computer  Facility, 
Heston,  Virginia) 

EMP2  >>ob  (17(53,  11720,  (10,  120),  'RXN50,  U,  SAUNDERS' 

STEP1  EXEC  FORTGCl.G,  FARM  FORT  ’SOURCE' 

//FOR T.  SVSIN  PI)* 

- PROGRAM  CARDS  - 
/* 

//GO.  FTOOFOOl  DD  DSNAME  M17G3.  KMPDAT,  DISP  S11R 
//GO.  SVSIN  1)D  ♦ 

- EVENT  DATA  CARDS  - 

- TARGE  T DATA  CARDS  - 
/* 

// 

3 . 1.1.1)  Detailed  Flow  Chart 
See  Figure  3-7. 

3.1.2  Subroutine  inscription 
3.  1.2.1  Subroutine  INTER P 
3.  1.2. 1.1  IHirpose 

To  permit  retrieval  of  EM P values  for  a latitude  other  than  30,  45,  or  GO 
degrees,  by  a linear  interpolation  between  known  values  for  30,  45,  and  GO  degrees. 

3. 1. 2. 1. 2 Calling  Sequence 
DIMENSION  V (10) 

CAM.  INTER  P (SSI.,  SY  , Sll , SR,  ST,  V) 

3. 1.2. 1.3  Detailed  Description 

Subroutine  INTER!’  is  capable  of  retrieving  EMP  values  for  ETOTAL,  EX  ERT, 
ENOR  I'll,  FEAS  T,  I’OYNTING,  POLAR,  ANGARR,  RISETIME,  PEAKXMDTH,  and 
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I 

1 


, 

1 


t 


TAIL.  Search  parameters  YIELD  and  HOB  must  be  exact  values  present  in  the  data 
base.  Search  parameters  Id „\ T , H,  and  THETA  need  not  be  exact  values  present 
in  the  data  base.  Retrieved  KMP  values  will  l>e  linearly  interpolated  from  the 
surrounding  values  of  BEAT,  It,  and  THETA  that  are  in  the  data  base  file.  See 
Paragraph  3. 1 . 2. 1 . 3. 3 for  interpolation  details. 

3. 1 . 2. 1 . 3. 1 Inputs 
Calling  Parameters 

SSI.  Search  latitude  value.  Should  be  between  30  and  00  degrees.  If 
<30,  then  30  will  be  assumed.  If  >00,  then  00  will  be  assumed. 

SY  Search  yield  value.  Must  be  1.25  or  5.00  megatons. 

SI1  Search  height  of  burst  value.  Must  be  50,  100,  250,  or  400  kilometers. 

SR  Search  distance  in  kilometers  from  event  to  target 

ST  Search  THETA  angle  in  degrees.  Bearing  from  event  to  target 
clockwise  from  true  north. 

3. 1.2. 1.3.2  Outputs 
Returned  Parameter 

V A UP  word  real  array  which  will  contain  the  EMP  values  for 

E TOTAL  , EVERT,  ENORT11 , EE. AST,  POYNT1NG,  POLAR, 

ANGARR,  RISETIME,  PEAKW1DTI1,  and  TAIL,  in  that  order. 

These  values  will  be  linearly  interpolated  for  BEAT,  R,  and  THETA 
from  actual  values  in  the  data  base. 

Printed  Messages: 

Certain  warning  messages  may  be  printed  by  subroutine  INTERP. 

"Latitude  below  30  degrees.  Values  computed  for  30  degrees.” 

"Latitude  above  00  degrees.  Values  computed  for  fit)  degrees." 

Note:  R and  THETA  have  already  been  calculated  using  actual  latitude  and 
longitude  coordinates.  These  changes  affect  only  the  retrieved  data 
base  values. 
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3 . 1 . 2. 1. 3. 3 Processing 


/ — 


Retrieval. 

Retrieval  is  done  by  calling  subroutine  SEARCH.  See  Paragraph  3.1.2.  2. 
Interpolation. 

If  the  calling  parameter  SSL  (SEARCH  LATITUDE)  takes  a value  of 
30,  45,  or  00  (or  < 30  or  >60),  only  one  call  to  subroutine  SEARCH  is  made 
anti  no  interpolation  is  necessary.  If  SSL  is  >30  and  <45  or  >45  and  < 60, 
two  calls  to  subroutine  SEARCH  are  made.  The  ten  EMP  data  values  are 
linearly  interpolated  from  the  two  sets  of  values  returned  by  subroutine 
SEARCH. 


3. 1.2. 1.4  Data  Organization 


Variable  Name 


Usage 


I 

K 

SH,  SR,  SSL,  ST,  SY 
SL  (2) 

V (10) 


YY  (10) 
XLINT 


Do  loop  index . 

Do  loop  index . 

Input  parameters. 

The  actual  two  latitudes  used  to  call  subi'outine  SEARCH. 
Output  parameter.  Also  used  for  the  first  set  of  EMP 
values  from  SEARCH. 

Second  set  of  EMP  values  from  SEARCH. 

Interpolation  ratio. 


3. 1 . 2. 1 . 5 Limitations 


Search  values  for  yield  and  height  of  burst  may  only  take  on  certain  values  as 
described  in  Paragraph  3.1.2. 1.3.1. 

3. 1 . 2. 1 . 6 Routines  Used 


SEARCH  subroutine  to  retrieve  data  base  values. 


3.1.2. 1.7  Detailed  Flow  Chart 


See  Figure  3-8. 
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:i.  1.2.2  Sub  rout  im-  Son  roll 


3. 1.2.2. 1 Purpose 

To  retrieve  KMP  v:ilues  from  the  data  base  file  when  certain  search 
parameter  values  are  known. 

3 . 1.2. 2. 2 ('ailing  Sequenee 

Dimension  VAL  (10) 

Call  SKAlU'll  (SI.,  SY,  Sll,  Sit,  ST,  VAl.) 

3.1.2.2.11  Detailed  Description 

Subroutine  SKAlU'll  is  capable  of  retrieving  KMP  values  for  KTOTAL,  KYKUT, 
KNOUT11,  KKAST,  POYNT1NG,  POl.AIi,  ANGAlilt,  U1SKTIMK,  PKAKWIDT11,  and 
TAIL.  SKAlU'll  parameters  111, A T,  MK1.D,  and  HOB  must  be  exart  values  present 
in  the  data  base.  See  paragraph  11.1.2.2.3.1  for  details.  SKAlU'll  parameters  U 
:ind  T1IKTA  need  not  be  exaet  values  present  in  the  data  base.  Itetrieved  KMP 
values  will  be  linearly  interpolated  from  the  four  surrounding  values  of  It  and  T11KTA 
that  are  in  the  data  base  fiie. 

3. 1.2. 2. 3.1  Inputs 
Calling  Parameters 

SL  SKAlU'll  latitude  value.  Must  be  lit),  15,  or  (10  degrees. 

SY  SKAlU'll  yield  value.  Must  be  1.25  or  5.00  megatons. 

Sll  SKAlU’ll  height  of  burst  value.  Must  be  50,  100,  250,  or  500 

kilometers. 

Sit  SKAlU'll  distance  in  kilometers  from  event  to  target. 

SKAlU'll  T1IKTA  angle  in  degrees.  Hearing  from  event  to  target 
clockwise  from  true  north. 


ST 


Data  Base  File: 


The  data  base  file  is  read  from  FORTRAN  unit  9.  Each  80-character  record 
consists  of  the  following  fields: 


NAME 

FORMAT 

DE8CR1PION 

I RUN 

(14) 

Sequence  number  from  1 to  129 

BEAT 

(1'5.1) 

Burst  latitude  (degrees) 

YIELD 

( F5. 2) 

Burst  yield  (MT) 

ROB 

(F5.1) 

Height  of  burst  (km) 

R 

( Fl> . 1 ) 

Ground  range  (km)  of  line  of  sight  at  surface,  measured 

from  burst  epicenter  on  surface 

THETA 

(F5.1) 

Azimuthal  bearing  (degrees)  of  lire  of  sight,  clockwise 

from  geographic  north 

E TOTAL 

(F5.2) 

Peak  total  electric  field  (as  a fraction  of  (50  k\'/m) 

EVERT 

(F5.2) 

Peak  vertical  electric  field  (as  a fraction  of  (10  kY/nt) 

positive  upward 

ENORT11 

(F5.2) 

Peak  north  electric  field  (as  a fraction  of  60  kV/m) 

positive  northward 

EEAST 

(F5.2) 

Peak  east  electric  field  (as  a fraction  of  60  k\'/m) 

positive  eastward 

POYNTING 

(F5.4) 

Tim  a- integrated  poynting  vector  of  the  free- field 
electric  field  (i.e. , no  ground  reflection  considered) 

(joules  per  square  m 'ter) 

POLAR 

(F6.1) 

Polirization  angle  (degrees)  of  the  electric  field. 

defined  as  the  angle  the  electric  field  is  rotated 
counterclockwise  from  the  horizontal.  (This  is  not 
the  angle  between  the  electric  field  vector  :md  its 
normal  projection  of  the  ground. ) 
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f 


l>FSri<IPTION 

Anglo  of  arrival  (degrees)  of  the  lino  of  sight  m >n  suit'd 
at  its  intorsoctlon  with  tho  ground  (i.o. , angle  botwoon 
tlio  lino  of  sigtit  and  tho  horizontal) 

10'  to  DO','  riso  timo  of  tho  amplitude  of  tho  total  electric 
field  (ns) 

00'  to  00' , shoulder  width  of  the  amplitude  of  the  total 
electric  field  (ns) 

00'  to  1 t»‘V  delay  time  of  the  amplitude  of  the  total 
electric  field  (ns) 


\ Al.  A 10-word  real  array  which  will  contain  the  EMP  values  for 
K TOTAL,  EVENT,  ENOllTII,  ERAST,  POYNTINO,  POI.AIt, 

A NO  A UK,  UISF.T1ME,  PEAKWUVni,  and  TAll  in  that  order. 

These  values  will  he  linearly  interpolated  for  It  and  THETA 
from  actual  values  in  the  data  base. 

Printed  Messages: 

Certain  error  messages  may  he  printed  by  subroutine  SKAKC11. 

"SEA ItCII  DATA  OCT  Of  HANOE" 

See  Paragraph  ;t.  1. 2.  U.d.  1 for  the  requirements  placed  on  search  data  values. 
"It  is  out  of  Hange" 

Value  given  for  It  is  greater  than  the  largest  It  for  which  a reading  is 
present  in  the  data  base. 


NAME  EPHMAT 

ANOAltlt  ( FI . 1 ) 

ItlSETIME  ( F I . 1 ) 

PEA  KWIDTII  (F5.ll 

TAIL  (lt>.  1) 

:t.  l . 2. :t.  2 i Hit  puts 

Itetu rned  Pa ra meter: 


M.  1.2. 2. 3. 3 Processing 

Retrieval 

The  data  base  lili'  is  a random  access  file.  Rach  record  may  lie  road  directly 
without  having  to  sequentially  read  all  previous  records,  the  record  number  "here 
appropriate  data  can  be  found  can  be  calculated  by  knowing  the  layout  of  the  tile. 

The  file  consists  of  3000  records  which  can  be  thought  of  as  2 I groups  of  1 *Ji» 
records.  Table  3-1  shows  the  values  for  YlRI.l),  HI  AT,  and  IIOM  rot- each  group. 
The  1311  records  in  each  group  consist  of  a single  record  of  measurement  data  for 
T11R.TA  0 and  K 0,  followed  by  eight  measurements  taken  at  each  of  10  Till'.  TA 
angles  (0°,  22.5%  45",  (17.5°,  1)0°,  112.5",  135°,  157.5%  ISO",  202.5",  225",  247.5", 
270",  202.5",  315°,  and  337.  5”). 

A record  number  (variable  name  .101  is  calculated  based  on  the  search  data 
values,  first.  Y1R1.P  value  determines  which  half  of  the  file  the  desired  record  will 
be  in.  So,  if  Y1R1.P  1.25,  .10  is  set  to  1.  If  YIR.RP  5.0,  .10  is  set  of  1540  (the 
first  record  in  the  second  half!. 

N»\t,  the  1IOI1  value  determines  the  quarter  of  the  selected  half  of  the  file 


If  UOlt 

50 

100 

250 

too 


TURN  30  00  t 

0 

3S7 
771 
1 It’d 


Next,  the  MI  AT  value  determines  the  third  of  the  selected  eighth  of  the  tile 


If  Ml, A T 

30 

•15 

00 


TURN  .10  ,10  t 

0 

120 
25  S 


At  this  point,  the  group  of  120  records  which  contain  the  appropriate  data  has  been 
determined. 
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The  specified  THETA  angle  value  divides  this  group  into  16  subgroups 
of  8 or  9 records  each.  Since  the  R values  stored  in  the  data  base  follow  no  fixed 


sequence,  these  8 or  9 records  must  be  sequentially  scanned  to  find  two  records — one 
with  an  R value  less  than  or  equal  to  the  search  R value,  and  another  with  an  R value 
greater  than  the  search  R value. 

As  a special  case,  a search  R value  between  zero  and  the  first  measured  R value 
for  the  given  THETA  value  must  use  the  R = 0,  THETA  = record  as  the  lower  record 
regardless  of  the  given  THETA  value. 

The  sequential  search  is  done  twice:  once  for  a THETA  value  lower  than  or  equal 
to  the  search  THETA  value,  and  again  for  the  next  higher  THETA  value.  Note  that 
THETA  0°  is  considered  to  be  the  next  higher  value  from  THETA  337.5°. 

Four  records  have  thus  been  read,  and  the  final  results  can  be  interpolated 
from  them. 

Interpolation: 

Figure  3-9  shows  the  interpolation  procedure.  Point  S is  defined  by 
the  search  R and  THETA  values.  Points  1,  2,  3,  and  4 are  the  points  about  point  S 
that  actually  contain  values  in  the  data  base. 


EVENT 


Figure  3-9.  Interpolation  Procedure 
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Values  for  (*>ints  1 ami  :i  are  linearly  interpolated  on  THETA  to  produce  values 
for  point  f>.  Values  at  |x>lnts  2 ami  1 are  also  linearly  inter|x»lated  on  THETA  to  produce 
values  for  (H>int  »'».  Finally,  the  values  for  i>oints  f>  ami  <i  are  linearly  inter(x>lated  on  H 
to  produce  the  values  for  |>oint  S. 


J.1.2. 2.1  Patii  Organization 


\ a rialile 
Nome 


HI  A !'(  »> 
11011(51 


l sage 

Array  of  latitude  values  read  from  data  base  records 

Arntv  of  height  of  burst  values  read  from  data  base 
reco  rds 


I 

IlUN(5t 


1T(51 


,1 


,1b 

K 

L9 


M 


N 


11(51 


Ho  loop  index 

Array  of  run  number  values  read  from  data  base  records 

Array  of  lllETA  angle  value  indices  in  range  0 to  15 
which  define  THETA  angle  values  around  the  search 
THETA  value. 

i>  if  current  group  has  s records 

o 

1 if  current  group  has  b records  (I'llF.  I'A  0 1 
Number  of  current  data  base  record  being  read 
Iki  loop  index 

Number  of  first  data  base  record  in  12b  record 
group 

l pper  limit  of  search  I (KM'.  Number  or  i 'ecords  in  this 
group  (s  or  !>1 

Ho  loop  index 

Array  of  11  values  read  from  lata  base  records 


HINT 


Interpolation  ratii’  lor  11  values 


ST,  SY 


j 

i 


T1 


T2 


TUKTA(5) 

TINT 

V(10,5> 

VA  1.(10) 

Y1K1.0  (5) 

3.1.2. 2.5  Limitations 


Input  parameters.  See  I 'a  ragraph  3.1. 2.  2. 3. 1 . 

Temporary  variables  corresponding  to  values  at 
(Joints  5 and  6 in  Figure  3-!) 

Array  of  THKTA  values  read  from  data  base  reconi s 
Interpolation  ratio  for  THKTA  values 
Array  of  KM1’  measurement  values  read  from  data  base 
CXitput  array.  See  Paragraph  3.1.  2.  2. 3.  2. 

Array  of  yield  values  read  from  data  base. 


This  subroutine  will  run  only  in  a FORTRAN  which  supports  a random  or  direct 
file  access  procedure.  It  could  lx*  nnxiifiod  to  use  sequential  access,  however,  run 
time  and  FIT  time  would  lx-  greatly  increased. 

3.1. 2. 2.0  Routines  Used 

IFIX  FORTRAN  function  to  convert  real  to  integer. 

3.1.  2.2.7  Detailed  Flow  Chart 
See  Figure  3-10 


3. 1.12. 2. M Program  Listing 


100 


c 

c 

c 


?0 

101 


TO 

10? 


EMP  BLAST  EFFECTS  PWOGWAM 
EVENT  OATA 

DIMENSION  EL  AT  (PS)  .ELON  (PS)  .f  l AT*  (PS)  .ELONP  (PS)  . Y I ELD  (PS)  .HOr>  (?5) 
DIMENSION  ANGH  ( ?S)  . ANC.M  < PS) 

TARGET  DATA 

DIMENSION  TLAT  (POO) . TLON(POO)  . TL  A TP ( 00)  . TLONw(POO)  .ID (POO) 
DIMENSION  V(10) 

OATA  IS/1HS/.  I E / 1 HE  / 

DATA  1EVU/S/.  ITAPU/S/ 

LINCNT  = 0 
PI  =1.  WISwPbS 
PIP=PI /?. 

WAOr.Ol 74S3 
*=57.PWS779 
P AO  I (JS  OE  EAPTH 
WFA=b37S.bb?S 


1 


IN  MLOMtTtPS 


WE  AD  THE  L VE  NT  DATA 


NE  V 


WF  AD ( IEVU. 100) 

F OPM A 7 ( 13) 

00  PO  J = l.NEV 

»E AD ( IE  VU . 1 0 1 ) AO. AM , AS ,L A .OD.UM .0- 
CONvFPT  DEGWEtS.  MInuTEs.  SECONDS 


.LO. Y IELO ( J) • HOB ( J) . ANGM ( J) 
TO  FPACTIONAL  DEGWEtS 


ELAT(J)  = AD* < AM/bO. ) ♦ < AS/3600. ) 

FLON(J)  = 00* (UM/bO. ) ♦ (OS/3G0O. ) 

IE  (LA.EO.IS)  t L A T ( J ) = -EIAT(J) 

IF  <L0.E0.IE:>  ELON(J)  = -ElON(J) 

CONVFPT  TO  WAOIAmS 

e l a t p ( j ) = elat ( j) “pad 

FLONP(J)  = FL.ON  ( J)  "PAD 

COMPUTE  ANGLE  TO  THE  HOwIZON  F Oh  THIS  EVtNT 
FSTABLISHFS  THE.  EFFECTIVE  PANGE  Of  THIS  EVENT 
ANGE!  ! J ) = APCOS  (WE  A/ (WE  A*hOH  ( J)  ) ) 

CONTINUE 

F OWMAT  (3FP.0.  A1  ,E  w.O.PF  P.O.  A1  .FB.P.F  ‘..o.FB.  1 ) 

WE  AD  ThE  TAPGE  T DATA 

wE AD ( T TAWiu 1 OA ) N T Aw 
00  30  N = l.NTAP 

Pt  At)  ( I TAWII.  1 OP)  ID  (X  > , AD.  AM,  AS.LA  .on.OM.OS.LO 
TLAT(K)  = AO* ( AM/bO .)♦( AS/3600 . ) 

TLONIM  = OL* (OM/bO. ) ♦ (OS/3bOO. > 

IF  (LA.EO.IS)  TLAT(h)  = -TLAT  CO 
IF  (L0.EO.lt)  TLON(h)  = -TlON(N) 

CONVERT  TO  PAUIAns 
TLATP(K)  = TLAT ( K ) *W AD 
TLONP(K)  = TL'N(h)*WAD 
CONT  I E'UF 

FOWMAT ( 13. 1 * .3FP.0 . A 1 ,E  4.0 .PF  P.0 . A 1 ) 

11-2S 


on  non  on  no  on  non  on  non  n on  non 


COMPUTE  EMP  EFFECTS  FOR  EACH  TARGET 
00  90  K = 1 .NT AR 

COMPUTE  EFFECT  OF  EACH  EVEM  UN  T"IS  TAkoET 
DO  80  J = 1 ,Nt V 
TARGET  ANGLE 
8 = PI?-TLATK(K) 

A = P I ?-EL  A T R ( J ) 

PDNP  = ABS ( TLONR (K)-ELONR(J) ) 

0 = ARCOS (COS (B) *C0S ( A ) *SIN (B) “SIN ( A ) »C0S <P0NP) ) 
IF  OVER  HORIZON,  THEN  NO  EFFECT 

IF  (D.GF . ANGH ( J) ) GO  TO  80 

0 1 S = REA“u 

ANGR  = ARSlN(SlN(P0NP)*SlN(H)/slN(O) ) 

DEFINE  QUADRANT  OF  TARGET 

IF  (TLONR(K) .GT.FLONRI J) ) GO  TO  40 
IF  (TLATR(N) .GT.ELATRl J) ) GO  Tu  60 

FOURTH  QUADRANT 
ANGR  = P I - ANGR 
GO  TO  60 

40  IF  (TLATR(N) .GE.ELATR(J) ) GO  T«.  SO 

THIRD  QUADRANT 
ANGR  = P I ♦ A nGR 
GO  TO  60 

SECOND  QUADRANT 
SO  ANGP  = PI2-ANGK 

FIRST  QUADRANT 
60  CONTINUE 

CONVERT  ANGIE  TO  DEGREES 
AMG  = ANGR - W 

RETRIEVE  AND  INTERPOLATE  T HP  t^R  VALUtS 
THETA  = AND ♦ ANGM ( j ) ~2 • 

CALL  INTERP (EL  AT ( J)  .rlfcLO(J) «HU«( J)  *OI S« THETA. V) 

ADJUST  TOTAL.  VERT.  NORTH,  AND  EAST  TO  KV/M 

DO  70  KK  = 1,4 

V ( K K ) = V(KK)»60. 

70  CONTINUE 


M 


I 


no  o o o 


PRINT  THE  RESULTS 

IE  ( MOD  ( L I NC.N T , 35 ) . NE  • 0 ) GO  TO  75 
WRITE(h.l03) 

WRITE  (ft.  10**) 

WRITE (6. 105) 

75  CONTINUE 

ANG 1 = ANGM(J)»ANG 

WRITE (ft. 1 Oh)  I 0 ( K ) .J, YIELD (J)  »nOB(J)  .ELAT(J)  .ELON ( J)  . 

1 TL AT ( K ) . TLUN (K ) , D I S . ANG . ANu 1 ,V ( 1 ) 

LINCNT  = L 1 NCNT ♦ 1 

80  CONTINUE 
90  CONTINUE 

103  EORMAT  Cl  TG  Ev  YIELD  HE  I - EVENT  EVENT  TARGET  TARGET  TARGET 
1 TARGFT  TARGET  TOTAL*) 


104  EORMAT(lXC  GHT  LAT.  LONG.  LAT.  LONG.  OIST. 

1 ANG(T)  ANG(M)  E . S . • ) 

105  FORMAT  (IX,* — 

1 . ,/> 


10ft  FORMAT  dX,2I3,Fft.2.F5.0,E7.2,E8.2.F7.2,2E8.2,2E7.2,Eft.2,/) 

STOP 

END 

SUBROUTINE.  INTERH  (SSL.SY.SH.SR.SI  .V) 

THIS  SUBROUTINE  PERFORMS  A LINEAR  INTERPOLATION  I OR  A GIVEN 
LATITUDE  (SSL)  BETWEEN  30  AND  hO  DEGREES 
DIMENSION  V ( 1 0 ) ,SL(2) .VY(10) 

DO  10  1=1,10 
V ( I ) = 0. 

VY ( I ) = 0. 

10  CONTINUE 
SL<?>  = 0. 

IE  (SSL.LT.30.)  wRlTE(ft.l) 

1 FORMAT (•  LATITUDE  BFLOw  30  DEGREES.  VALUES  COMPUTED  FOR  30  DtGREES 

2.  • ) 

IE  (SSL.LE.30.)  GO  TO  30 

IE  (SSL.GT.30. . AND.SSL.LT. 45. ) GO  TO  J045 
IF  (SSL.E0.45.)  GO  TO  45 

IE  (SSL.GT.45. .AND.SSL.LT.ftO. ) GO  TO  4560 
IE  (SSL.GT.60.)  WRITE ( ft ,2 ) 

2 EORMAT (•  LATITUDE  ABOVE  60  DEGREES.  VALUES  COMPUTED  FOR  bO  DEGREES 

2.  • ) 

SI ( 1 ) = 60. 

GO  TO  100 
1045  SL ( 1 ) = 30. 

SL ( 2 ) = 45. 

GO  TO  100 
45  SL ( 1 ) = 45. 

GO  TO  100 
h560  SL ( 1 ) = 45. 

SL (2)  = 60. 


ooo  noo  o o r>  nno  nonr^rs  00000 


TO  SL(1)  = 30. 

100  CONTINUE 

CALI  St ARCH ( SL ( 1 ) .SY.SH.SR.ST.V) 

C IF  FXACT  LATITUDt,  NO  NEED  FOP  SECOND  CALL  AND  INTERPOLATION 

IF (SL (2) .EO.O.)  RETURN 
C RETRIEVE  THE  SECOND  LATITUDE 

CALL  SEARCH  < SL  to)  .SY.SH.SR.ST.VY) 

C CALCUl  ATE  LATITUDE  I NTF RPOl AT  I ON  RATIO 

XL INT  = ( SSL-SL ( I ) ) /IS. 

C INTERPOLATE  THE  RETURN  VAUIES 

DO  110  K = 1.10 

V < K ) = V (K) ♦ (VY (K) -V <K > > *Xl  INT 

110  CONTINUE 
RETURN 
END 

SUBROUTINE  SEARCH  ( SL . S Y , SH , SE . S T . V A!  ) 

THIS  SUBROUTINE  SEARCHES  THE  F MP  DAT-  BASF  F I Lt  . LATITUDE.  HUo , 

and  yield  must  Bt  Exact  values  present  in  the  data  base. 

R AND  theta  WILL  BE  LINEARLY  INTtRPOl  ATED  FROM  VALUES  THAT  ARt  IN 
THE  DATA  BASE. 

DEFINE  FILE  9 ( 30 96 . 80  » F . JR ) 

DIMENSION  IRON (S) .BL AT (5) . YIELD (b)  .HOB (b)  .R (b)  .THE  T A (S) 

DIMENSION  V(IO.S) ,VAL(10) ,IT(S) 

VFRIFy  THE  VALIDITY  OF  SEARCH  DATA 

YIElD  MUST  HF  b.00  OR  1.25 

IF  (SY.NE.b..ANI).SY.NE.l.?b)  UO  10  HO 

L A T I T E IDF  MUST  HF  30.  4b,  OR  BO 

IF  (SI .NE. 30 . .ANU.SL.NE .AS. .AND.SL.NL .BO. ) bO  TO  800 
HEIGHT  OF  BURST  MUST  BE  bO.  100.  ?b0.  OR  A00. 

IF  (SH.NE .bO. . ANO.SH.NE . 100. .AN0.SH.vE.250. .AND.SH.NE.A00. ) GO  TO 
? 800 

THETA  ANGLE  MUST  HE  HF  T WE  E N 0 AND  3b< 

IF  (SL .LT .0)  GO  TO  800 
lb  CONTINUE 

IF  (ST. I T.3B0)  Gu  TO  ?0 
ST  = ST  - 3B0 
GO  TO  lb 
?0  CONT I NUE 

START  BY  POINTING  TO  EIRST  RECORU 


:t-:u 


1 A 


n n n n nn  n n n 


IF  (SY.t  O.S.  ) JH  = SaH 

HP IghT  OP  H(.W^  f UtTt.WMINtS  WHICH  UUAMPH  OP  THIS  HALF 


IP 

(SH.FQ.  11)0.  ) 

J4= JH, 

.TPi  7 

IP 

(SH.FQ.?SO.) 

J4  = .)4, 

774 

IP 

(SH.P  0.400.) 

JH-  )H. 

1 1M 

L AT  I ToUF  DPTEHMINtS  WHICH  THlHO  OF  IMS  OU  Ah  TP  FI 

IP  (Sl.P0.4S.)  JO-JH.l^O 
IP  (Sl.FO.hO.)  J4-J4*?SH 

NFXT.  T Hp  T A AM.Lt  L)  I V I DP  S THIS  (,WUUH  INTO  SIXTEENTHS 

ANG{  E NEED  NOT  MATCH  EXACTLY,  SO  «i  I U PINO  WHICH  TWO  GROUPS  ITS  HtTWFFN 
C IT  (/I  is  lowpp  (><-  P OOAL  ANGLE  THAT  l'-  IN  T Mt  DATA  HASP,  AND  11(4) 

l IS  NEXT  H I GMf  H AM..LP  THAT  I s 1 N 1 HE  A T A HASt 

C 

L 4 = J4 

I T (?)  = IP  I X ( s T /?? ,S ) 

I T (4)  = 1 T (?)  ♦ l 

IP  UTIwl.PO.lM  11(4)  = fi 

C 

C tACH  T HFJA  AMOVE  AN!)  THPATA  HUD*  DPPlNP  H OH  4 HP  COHOS  WHICH 

C MUST  P>E  SP  OOP  NT  I ALL  Y SPAHCHFD  TO  P I No  T HP  1*0  HP  COHOS  wITh  AN  H 

C V 4 L ( IP  AHOVt  ANO  HP  LOW  T HP  SP  AF’CH  H V - L 1<E  . 

C I T ( 1 ) AND  ITO)  AH  p HU  OW  OH  POllAI  Tu  ThP  SP  AHCh  H ANO  IT(?>  AND 

C IT  (4)  A Hp  AtiOVP  T Ht  SEARCH  H 

C 

nn  to  k=1.s,? 

IT(M  = o 
IHUN(N)  =0 
HL  AT  (K  ) =n  . 

YIELD  O') 

HOP-\K)  =0. 

H (K ) =0. 

THPTA(K)  ^0. 

00  ?H  I * I , 1 1) 

V ( I ,M  - 0. 

?0  CONTINUE 
TO  CONTINUE 
t 

C DO  FOP  ThPTA  AHOVP  ANO  ThPTA  HP  LOw 

C 

00  HO  K=?.4.? 

C SET  I T (N  ) TO  P IhsT  HK.OPD  IN  ThIs  ( hp  T A gWOUH 

C PIOHT  RECORDS  IN  p ACH  GwOUR 

1 T < K > = IT ( N ) “M 


tXCEPT  THE  f IksT  WHICH  has  R 
J = n 

IF  (IT(K) .NF.O)  J = 1 
IT(K)  = IT  ( K ) *1  R*  J 
SET  RECORD  NUMBER  TO  READ 
JR  = I TIM 

00  FOR  EV  OR  R RECORDS  IN  1N]S  l.KlJUK 
M = R - J 

00  4 0 I = I . M 

READ  <R»JR.ll)  IRUMM  ,HL  A I (K  ) . Y IE  LO  (M  «HoH  (K  ) ,R  (M  , 

? THETA (K) . (V IN.K) .N=l , 10) 

1 1 FORMAT  llR.FS.l.Fb.^.FS.l.Ffv.l.FS.l.Rt-S^.FU.M.FG.l^FM.l.FS.l.FEi. 
?) 

IF  THIS  R IS  GREATER  THAN  SE  AMI  H R,  SEARCH  R HAS  SEEN 
HR  AC  EE  TE  0 

IF  (R  (H  > .01  .SR)  (.0  TO  SO 

IE  NOT  • save  THIS  RECORD  AS  POsSIHLE  I Owt.  R or  EOUAL  VAI  UE 

SAVE  RECORD  NOMheR 
IT  ( K — 1 ) - JR- 1 

I RON ( tv - 1 ) - l RUN  I M 

HI  AT  ( K - 1 ) - HI  A T ( M 

YlEl D(K-l)  = Y IEI DIF I 
HOH  (tv  - 1)  ■=  non  ( tv ) 

R ( tv-  1 ) - RIM 

TH)  TAIN  — 1)  - T HE  T A ( M 

('0  TR  M - 1.10 

V (N. tv-1  I - V (N.M 
TR  CONTINUE 

40  CONTINUE 

IF  NO  FIND.  MOST  HE  OVER  RANGE 
WRI TF  ( G . 1 4 ) 

1 4 FORMAT (IHh  r |s  OUT  OF  RANGE) 

Rf  TURN 

IF  FIRST  ENTRY  Is  >SR,  READ  THE  rlRST  T hE_  T A = 0 RECORD  TO  Gtl  W = 
SO  I TIM  = JR- 1 

IF  ( I .NE  . 1)  GO  TO  SS 

JR  = l R 

RE  Al)  <R»  JR.  1 1 ) I RUN  (tv  - 1 ) ,Hl  ATCv-lt.YltL  DIN  — 1)  ,HOH  (K  - 1 ) «R  (K-l)  • 
? THFTA(F-1).(v(N.n-1).Ns1.10) 

SS  IT(K-l)  = JR- 1 

Ml  CONTINUE 

COMPUTE  INTERPOLATION  RATIOS 


1 


VAI  UE 


TINT 

RtNT 


(ST-THE  T A ( J ) ) /,V.s 
(SR-R  ( 1 ) ) / (R  (^)  -R  I 1 ) I 


c 

£ INT EHPOLAT E THE  RESULTS 
DO  70  N = 1 , 1() 

If  I V(N'2)  + TINT*(V(N,4)  - V(N  2» 
V U /VM(f’1)  + TINT*(V(N.3)  - V(N,  1)) 

return 

SEARCH  dATA  OUT  of  range 
800  WRITE  ((>,13) 

END 


C 

c 

c 


.:-:n 


3.2  NETWORK  ANALYSIS  PROGRAMS 


Network  analysis  computer  programs  are  needed  to  help  in  the  automated 
evaluation  of  the  transatlantic  communications  assets  before  and  after  (he  introduction 
of  nuclear  threats  in  the  environment.  The  programs  have  been  developed  in  the 
PL/I  language,  basieally  for  its  character  manipulation  capability,  powerful  built-in 
functions,  and  its  structured  command  format.  The  Defense  Communications 
Engineering  Center's  Hybrid  Simulation  Facility  (containing  an  1RM  370/155  computer) 
was  used  to  develop  the  following  three  "stand-alone"  programs: 

t.  Circuit  Tracer  Program 

2.  Primitive  Connection  Matrix  Program 

3.  Connectivity  (Routing)  Search  Program. 

The  first  program,  acting  on  the  transatlantic-communieations-assets-data- 
base,  determines  the  sites  and  the  links  traversed  by  specified  circuits.  The  second 
program,  again  acting  on  the  data  base,  computes  the  primitive  connection  matrices  of  the 
switched  networks  — AUTOVON,  AUTODIN,  and  AUTOSKVOCOM.  A primitive 
connection  matrix  provides  the  "next  neighbor"  information  about  the  sites  in  the  net- 
work. Using  this  information,  the  third  program  determines  all  unique  "simple” 
paths  from  one  specified  site  to  another.  A "simple"  path  is  defined  as  an  alternating 
sequence  of  sites  and  links  in  which  no  site  appears  more  than  once. 

3. 2. 1 Existing  Programs 

3. 2. 1.1  Circuit  Tracer  Program 

This  program  traces  a circuit  path  in  terms  of  alternating  sequence  of  sites  and 
links  traversed  by  it,  along  with  the  In/Ont  flags  of  the  sites  and  the  links.  The 
program  is  based  on  a simple  search  technique  in  which  the  trunks  traversed  bv  the 
circuit,  then  the  links  (and  the  sites)  traversed  by  the  trunks  carrying  the  circuit, 
are  determined  as  they  exist  in  the  data  lxise  using  TOTAL  commands. 


r 


I’ho  propram  does  not  use  any  external  procedures.  It  contains  traps  to  detect 
ev tilts  such  as: 

t.  The  input  circuit  does  not  exist  in  Circuit  Master  File 

-•  1 *u‘  t i-unU  sepment  eml  sites  are  not  properly  specified  in  Circuit-Trunk- 

Site  and  Trunk-1. ink-Site  Variable  Files. 

A "normal"  exit  is  taken  from  the  propram  if  on  readinp  a record  in  any  file  of 
the  data  base,  the  TOTAL  returned  status  is  "abnormal." 

Figure  3-11  shows  the  functional  input  output  block  diagram  of  this  program, 
the  inputs  are:  It  CRT  and  l.CKTNO  contained  in  file,  DEC  AIN  and,  2)  (FI1.K)  where: 

(FILE):  1'IUS  REFERS  TO  Al  l.  USER  DEFINED  TOTAL 
FILES  INCLUDING: 

MASTER  FILES:  llMCT,  RMTR,  RM1.K,  RMSI 
AND 

VARIA1U.E  FILES:  RVCT,  ltVTL 
CKT:  CIRCUIT  CCSD#  (!)  CHARACTERS) 
l.CKTNO:  NUMBER  OF  CIRCUITS  TO  BE  TRACED  * / 

the  outputs  LKCKT,  SICK!  and  SERIES  are  contained  in  file,  DEC  A OUT  where: 

* LKCKT:  A STRING  OF  CHARACTERS  CONTAINING  CCSD# 

AND  CIRCUIT  IN  'OUT  FLAG  (F)  AS  HEADER 
FOLLOWED  BY  T1IE  NAMES  OF  THE  LINKS 
TRAVERSED  ALONG  WITH  THEIR  IN /OUT  FI  AGS 
AND  A SPECIAL  CHARACTER,  <o>  AS  TRAILER 
(U05  CHARACTERS  FOR  MAXIMUM  ALLOWED 

!>!)  LINKS  ON  THE  CIRCUIT  PATH) 


RE  LEVANT  DATA 
ACCESSED  FROM 
USER  DEFINED 
TOTAL  FILLS  IN 
THE  DATA  BASE 

I 

| Figure  3-11.  Functional  Input/Output  Block  Diagram 

' for  Circuit  Tracer  Program 


CHARAC  1 1 RS  ) 

BLOki:  A STRING  HI  CHARACTERS  CONIAINING  l TSUI 

and  circimi  in  oin  mac  d:)  as  iieade  r 

I- ill  LOWED  DT  THE  NAMES  HE  I HI  SI  IIS 
I RAVI:  K'SE  D Al.  UNIT  LI  I I H I HE  Ik  IN/Olll  I I AGS 
AND  A SIT  l'  I Al  CHARACIfk.  P>  AS  TRAtlPR 
i VII  CHARAC  1 1 kS  MIR  MAXIMUM  Al  I UIJI  M 
100  SITES  UN  THE  Cl  kill  IT  PATH  I 

i 

t XAMPLi  : 2: 

ccsdiesi a iPSm-21  the  ioof  c 

(Nun  sia- i aikuiiGi-i  si  a-  too  iach  cuniains 

H CHARAC  1 1 R S'  f II  NAME  » 

SPRIT  SI  A SIRING  Ul  CHARAC  T I:  RS  CON  I A IN l NG  CCSDI 
AND  ClKCUtl  l’N/OIJT  HAH  (F)  AS  HEADER 
FOLLOWED  DY  THE  SITE  SI  k I Al  »S  UP  1 HI  SHIS 

. 1 HE  LINK  CODES  AND  Hit  IN/UUI  IT  AGS  OF  1 

J HI  I INKS  TRAVERSED  AND  A Sill  I Al 

CHARAC  I LR  ? (»  AS  IRAIIIR  l A OB  CHARAC  IT  RS  j 

EUR  MAXIMUM  Al.  I.  OWE  D 99  I INKS  AND  100 
SITES  ) 

I XAMPl  P 3 

CCSDIES  I [ENU  1 1 INKCUDI  I I I INMTIUl  9<V|  S I II  NUtOOP 

a 

(NOTH*  SI  TEN! a IHROUGH  SITINOtOO  EACH  CONTAINS  1 

A CHARAC  H R S H E SI  RT  Al  II 
AND 

I INKCODE  I THROUGH  I INKCUDI  99  EACH 

CONTAINS  .?  CHARAC  1 1 R I INK  CHIU  > j 

j 

The  above  outputs,  sorted  to  print  the  circuit  information  in  an  easily  readable  j 


J 


form  on  file  DKlWOl'T,  are  as  follows 


” 


Trunk  Name 
(7  characters) 


Site  Name 
(s  characters) 


Circuit  CCS1)  » 
(V*  characters) 


In /Out  Man  Code 
for  Cireuit  DU  U CM  77  A 


Fhd  Sites 
of  the  Trunk 
Segment 


t k'UNk ~CT  1 090A  CIDARBRK  NYORK  CY 
TRUNK=CTt204At  NYORK  CY  ANDOVER 
TRUNK- 1 3 /SO 2 A ANDOVER  GNHI  YDUN 
TRUNK--CT 1223A  GNHI  YDUN  HILLNGDN 


Trunk  Segments 
Traversed  by  the 
Circuit 


CEDAR  E<RK  <113)  AAAAA  Al  A1 0 ( C9  ) AMAAA  NYORK  C Y < 095 > SM JAA 
NYORK  C Y ( 095 ) SM  JAA-AI  A3 1 (CX)ShJAA  ANDOVER  < 139 > AAAAA 
ANDOVE  R ( 1 39  ) AAAAA  I 3033  ( I R ) AAAAA- SA  EE  IAE  :l  ( I 39  ) AAAAA 
SATEl AE  1 < 1 79 ) AAAAA  L0789 ( L 6 ) AAAAA  GNHI  YDUN<  IVI  ) AAAAA 
GNHI YD WN< 1 5 I ) AAAAA-EIL070 ( E2 ) AAAAA  HILL NGDN <066 > AAAAA 


t 


Site  Serial  ft 
(3  characters) 


ln/Out  King  Code 
for  HILLNGDN 


link  Name 
(5  characters) 


Link  Code 
(2  characters) 


The  characters  in  the  flag  code  (referred  from  left  to  right)  arc  to  be  decoded  as  follows: 
Character  ft  1 


Character  » 2 


Character  h It 


Character  H I 


Character  * f> 


S A Satellite  l ink  Outage 
A A No  Outage  for  above  Reason 

M A MltO  Outage 
A A No  Outage  for  above  Reason 

.1  A Jamming  Outage 
A A No  Outage  for  above  Reason 

1 R A Hlast  Outage 
j A A No  Outage  for  above  Reason 

\ K ^ EMP  Outage 
| A A No  Outage  for  above  Reason 


;)-:)*> 


There  art-  constraints  on  the  sire  of  some  identifiers  such  as  l.KC'KT,  Sli'KT, 
and  SKRIKS  mainly  to  save  the  core  si/e  of  the  program.  I lie  experience  in  the 
present  data  base  indicates  that  no  circuit  will  ever  span  more  than  links  justifying 
the  constraints  on  these  three  identifiers.  Such  constraints  are  user-defined  and 
can  he  easily  changed,  if  needed. 

;i.  2 . 1 . 2 Primitive  Connection  Matrix  Program 

This  program,  upon  gathering  information  about  the  three  specified  switched 
networks  (Al’TOVON,  APTOHIN,  and  Al'  1 i >SPV(  KH  >M  in  this  instance)  from  the 
data  base,  computes  the  primitive  connection  matrices  of  the  networks  in  terms  of 
two-character  link  codes  as  elements. 

The  core  of  t hi s program  is  two  external  procedures  ( figure  3-12).  the  pro- 
gram "serially"  reads  the  t'ircuit  Master  Pile  to  access  all  circuits  in  the  networks 
one  by  one.  t he  first  external  proetxlure  is  the  Circuit  tracer  Program,  which 
traces  the  path  of  each  circuit  in  the  network  in  terms  of  a string  of  characters, 
SERIES  (see  Paragraph  3. 2. 1.1.).  SKKIKS  contains  an  alternating  sequence  of  site 
serial  4s  and  link  codes,  along  with  the  In  Out  (lags  of  the  links  traverse!  by  a 
circuit.  This  information  is  ustxl  by  the  second  external  proeixlure,  called  the 
Network  Adder  Program  to  build  up  the  primitive  connection  matrix  of  a network. 

1’he  Network  Adder  Program  will  examine  all  links  in  the  circuit  path.  A link  will 
be  added  to  the  "pertinent"  network  to  which  the  circuit  under  consideration  belongs 
only  if  the  link  is  "In",  as  indicated  by  its  In  Out  flag.  If  multiple  links  are  found 
between  two  sites  in  a network  during  the  build  up  procedure,  only  the  "first  found' 
link  is  kept  in  the  network  and  an  information  message  is  printed  if  the  multiple  link 
is  not  the  same  as  the  one  that  already  exists  between  the  sites  in  the  network. 

The  program  also  contains  internal  procedures  provided  for  such  utility  l unc- 
tions as; 
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IFILEI 


b 


RE  LEVANT  CIRCUIT  7 
DATA  ACCESSED 
FROM  USER  DEFINED 
TOTAL  FILES  IN 
THE  DATA  BASE 


PRIMITIVE  CORRECTION  MATRIX  PROGRAM 

PROCEDURE  PRIM 

CIRCUIT 

Ni  TWORK 

TRACER 

ADDER 

PROCEDURE 

SERIES 

PROCEDURE 

PROCEDURE 

PROCEDURE 

DECA 

NEA 

J.  K.  L. 

TYR  I FOR  ■ I 2 AND  3. 
SERVA1 
SERVA2 


NETW1  ( . ). 
NARY1  ( I.  SITEI  ( ) 


NUL. 

NETW2  ( , I. 
NARY2  ( I.  SITE 2 ( I 


NUD 

NETW3  L.  I. 
NARY3  | ),  SITE  3 ( ) 


FILE 

PRMOUT1 


FILE 

PRMOUT2 


FILE 

PRMOUT3 


NEXT  NEIGHBOR 
INFORMATION 


Figure  Functional  Input/Output  Block  Diagram  for 

Primitive  Connection  Matrix  Program 


N:  NKMltKR  OK  SITES  IN  THE  NKTWORK 

PCM(.  . .):  PRIMITIVE  CONNECTION  MATRIX  OK  I’ll  K N ETWORK 
WITH  KINK  COOKS  (2  CHARACTERS  KAC'll)  AS 
Kl.KMKNTS 

SITKS(  . ):  A It  RAY  OK  SIT  K SKRLM.  «S  IN  I'll  K NKTWORK 

S1TEN(  . ):  ARRAY  OK  SI  I K NAM  KS  (S  CHIRAC  TERS  KAC'll) 

IN  I'll K NKTWORK 

NKK:  "KROM"  SITK  SKR1A1.  « (It  CHARACTERS) 

NTT:  "TO"  SITK  SKR1A1  (It  CHARACTERS) 

PATH  l. Til:  MAXIMUM  l.KNGTH  OF  A SIM  PI.  K PATH  (IN  TKRMS 
OK  I'll  K NKMHKR  OK  KINKS  TRAVERSED)  TO  ItK 
USKO  IN  PRINTING  OUT  SIMPKK  PATHS 
NUMC:  NUMHKR  OK  S1TKS  WllIGll  ARK  "SINK"  SITKS 
KOR  SOM  K (SAY  N TOTA1  ) KINKS 
KROMTOS(  . ):  ARRAY  OK  CIIARACTKR  STRING  CON  PAINING 

’I'll  K "SINK"  SITK  NAMK  (IN  THE  AHOVK  SKNSK) 

AND  SI  TK  NAM  KS  (MAXIMl'M  N 20  At  l-OWED) 

KOR  WHICH  IT  IS  A SINK 

I'he  outputs  SITKN  (POK(.))t  P’l'AG(,t  ami  NPA  l'll  art*  contained  in  file  CNSKOTi 
where: 

S1TEN(P0K(. )):  ARRAY  OK  SITK  NAM  KS  TR.AVKRSKO  IN  A 

SIMPKK  PATH 

PTAG  ( . ):  ARRAY  OK  KINKS  (KINK  COOKS)  TR.-WKRSKO 
IN  A SIMPKK  PATH 

NPATH:  NUMHKR  OK  SIMP1  K PATHS  l'OKNO 

The  major  constraint  in  the  program  is  again  the  size  of  the  largest  primitive 
connection  matrix  of  the  switched  network  and  the  comments  made  in  Paragraph 
It.  2.  1.2  apply. 
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1.  Correlation  of  site  names  with  site  serial  numbers 

2.  Correlation  of  link  names  with  link  codes 

3.  Alphanumeric  sorting  of  arrays. 


I 


The  program  contains  traps  in  addition  to  some  of  those  already  mentioned  in  the 
Circuit  Tracer  Program.  Some  examples  are: 

1.  Omit  the  information  about  a circuit  and  go  to  the  next  circuit  in  the  Circuit 
Master  File  if  there  is  a file  error,  as  indicated  by  "abnormal”  TOTAL 
returned  status  in  the  Circuit  Tracer  Program.  This  wall  ensure  that  the 
program  will  not  stop  as  a result  of  file  error(s)  in  a few  circuits. 

2.  The  trap  regarding  the  multiple  links  between  sites  as  mentioned  earlier  in 
the  paragraph. 

Figure  3-12  shows  the  functional  input/output  block  diagram  of  this  program. 

The  inputs  are  1)  J,K,  L.  (TYi(.)  for  i = 1,  2 and  3),  SERVA1  and  SERVA2  contained  in 
file  PRIMIN'  and  2)  (FILE),  where:  v 

(FILE):  THIS  REFERS  TO  ALL  USER  DEFINED  TOTAL 
FILES  including; 

MASTER  FILES:  RMCT , RMTR » RMLK > RMS I 
AND 

VARIABLE  FILES:  RVCT»RVTl. 

j:  number  of  identifiers  for  first 

SWITCHED  NETWORK 

K:  NUMBER  OF  IDENTIFIERS  FOR  SECOND 
SWITCHED  NETWORK 

l:  number  or  identifiers  for  third 

SWITCHED  NETWORK 

TY1(.)!  ARRAY  OF  3 CHARACTER  IDENTIFIERS  FOR 
FIRST  SWITCHED  NETWORK 

TY2(.>:  ARRAY  OF  3 CHARACTER  IDENTIFIERS  FOR 
SECOND  SWITCHED  NETWORK 
TY3(.>:  ARRAY  OF  3 CHARACTER  IDENTIFIERS  FOR 
THIRD  SWITCHED  NETWORK 
SERVAIJ  8 BIT  (BYTE)  REPRESENTATION  OF  USER 
DEFINED  * IN  * STATE 

SERVA2 : 8 BIT  (BYTE)  REPRESENTATION  OF  USER 
DEFINED  'IN'  STATE 


The  prineipal  output.'.  Nil,  Ml,  Ml),  (M"l  \Yi(.  , . ),  N.UIV:,  and  Nl  I I i . > l<  >i 
i I,  and  .1)  are  eontnined  in  lil<\s  I'ltMOUTl,  I’ll  INK  >1 1 Tl’  :m<l  I’HMOI  I':i  (see  fjpnrt 
..  " where: 
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An  example  of  a primitive  eonneelion  iniilnx  eontaininjv  a-'  tie-.  is  shown  in 
figure  Ihe  matrix  is  svintnel rienl  ahoul  the  diagonal,  and  if.  two-eharaeln 

elements  are: 
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"HD";  if  no  link  exists  between 
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"from"  silt'  i (o  "To"  silo  j 


|{ow  i of  (tie  matrix  eo  r resjx'tids  to  " I'mm  " sib'  i and  I lit'  eo  In  inns  eonta  ini  nr,  I In'  lint 
eotles  indleale  its  "To"  sites,  for  example,  "from"  site  1 lias  sites  It,  "a,  a- 


ni  ii  i : 

ni  in  to  k ui  ■ 

Nl  1 Id  (IK  lx 

Ills  IN  1 III  Ilk 

SI  Sid  1 

II  III  H 

Nt  ii  : 

NIINKI  K HI  1 

Ills.  IN  1 III  SI  l 

UNO  Sid  1 1 fill  h ( 

Nl  IldOklx 

| 

Niin : 

Nllhhl  K (H  l 
Nl  IldOKK 

Ills  IN  Mil  INI 

ku  sidi 

i ( in  n 

1 Id  1 1 

. . > : 

1 'K  1 N 1 1 1 Ml  t 

UNNI  f 1 1 UN  NA  1 K 1 X UI  II II 

1 1 KS  1 Sid  1 1 1 

III  1)  Nl  I IdllkK  Id  1 Ml  ' 

fl  lAKAC  Ilk  1 

1 Nk  fUUI  S AS  1 1 

1 Nl  N 1 ‘ ■ 

t Id.M 

1 'K  1 N 1 I 1 Ml  l 

UNNI  I I MIN  NA  1 k 1 

X ( II  M If 

SI  t'ONh  Sid  1 1 

fill  U Nl  1 IdllkK  Id  1 

Ml  ' 

i iiAkAfiik  I 

1 NK  utiin  S AS  1 1 

1 Nl  N 1 ' 

1 Id  A t 

, . > ; 

1 'k  1 M II  1 Ml  t 

UNNI  f 1 INN  NA  1 k 1 

X UI  Mil 

1 1 1 1 kb  std  i 1 1 

III  U Nl  1 IdllkK  Id  1 II 1 ’ 

fllAkAfllk  i 

1 NK  flllil  S AS  II 

1 ill  N 1 

NAKY 

it.): 

AkkAY  111  A 

UIIAkAf  Ilk  'III 

SI  k 1 At 

■ 'i 

I t)k  i I ks  l : 

Id  1 1 fill  U Nl  1 IdllkK 

NAKY 

>( . > : 

Aklv'AY  HI  A 

I'llAkAf  Ilk  sill 

SI  k 1 .'il 

t 

1 UK  SI  I lINti 

Std  t II  III  h Nl  1 IdUK 

K 

NiYKY  At.)t 

AkkAY  Of  A 

I'llAkAf  II  k SI  II 

'.1  Ii  1 At 

IS 

i tik  i ii  I kn  ; 

Id  1 H ill  Ii  Nl  1 IdllkK 

SI  II 

1 1 , > : 

AkkAY  III  1:1 

I'llAkAf  Il  k '.III 

NANI  '1 

IN 

i I k;M  std  I i ( 

III  n Nl  1 Id  Ok  lx 

Sill 

'a  . ) : 

AkkAY  UI  U 

fl  lAKAf  Ilk  SIM 

NANI  S 

1 N 

:>-■!  I 


—0.0 


O O O O 

O O O - 

o o o r 

o o o c 

o o o c 

i o o o c 

. o o o c 

>000  c 

I 

i 00  © c 

> o o •:  c 

' o • 

, 

> o o o c 

> o o c c 

' o o o c 

) o o o c 

> © o o c 

’ © o c 

> 0 O O V 

5 o o o 1 

5 o o o < 

5 0 0 0 . 

5 o o o < 

> O O 0 v. 

>1  O O 0 V 

.000c 

L o O O . 

>0005 

S o o o . 

> O 0 O < 

>000. 

> O 0 O V 

5 O O O < 

_•>  0 O O ( 
5 O O O < 

:>  o o o < 
? o o o > 
r>  o o o . 
' o o o ■ 
coo; 
o o ■ 
> O O ' 
a.  OOO 
V 'O  O O 

^000 
0000 
:>  o o o 
c o o o 
o o o o 

O OOO 

O O o o 
o o o to 
O O O u. 


_l  O U- 

- c.  o 

O _!  O 
UlOO 
u.  o o 
OOO 
OOO 


O O Oi 

o o >c 

OOO 

OOO 

OOO 

OOO 

o o o 
OOO 
OOO 
OOO 
OOO 
OOO 
OOO 
OOO 
OOO 
OOO 
OOO 
OOO 
OOO 
OOO 
OOO 
5 0 0 0 
'OOO 

>000 

>000 

5 0 0 0 

>000 

5 0 0 0 
5 0 0 0 

>000 
'•  o o »-< 
'Otno 

5 M — O 
5 . ' O <jT 
I !»  O 
5 O U5  O 

-.000 
n O O O 
0 OOO 
i.  o o o 
15  o o o 


000 

OOO 

OOO 

OOO 

OOO 

OOO 

000 

OOO 

o in  o 

O _l  o 
OOO 
OOO 
OOO 
OOO 

000 

OOO 

00  c 

OOO 
OOO 
OOO 
OOO 
OOO 
0 0 5- 
O o L. 
O 

O JO 


OOO 

OOO 


o 0 
Clio 
000 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 


000 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

O *5 

0X0 

> - "5 

alO  I 

M !>  O 

o u o 

5-0  0 

u.  •'  O 
OOO 
OOO 
OOO 
OOO 
OOO 
OOO 
OOO 
OOO 
OOO 
OOO 


OOO' 

COO' 

OOO 

OOO 

o a o 

Ou  O 

000 
OOO 
OOO 
OOO 
OOO 
05  o © 
©O'-* 
OOO 


OOO 
OOO 
U-  o o 
o © O 
OOO 
OOO 

000 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

>000 

'OOO 

>000 

5 0 0 0 


O O’  o 
OOO 
OOO' 

a.  o o 

u.  o o 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 


o u.  o 

OOO 

'OOO 


OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

o 6 © 

OOO 

OOO 

OOO 

OOO 

OOO 

o o o 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 


<-)  1*1  © £ 
omoc 
o o o 
0000 
000c 
o o o c 
000c 
000c 

0 O O l 

000c 

0001 
000. 
o o o . 

OOO. 

o o o < 

000c 

O O O V 
0 0 0 5 

o o o < 

OOO  5 

0 o o < 

OOO' 
O'  o o > 

0001 
ooo' 
_l  o O ‘ 
OOO' 
OOO' 
OOO' 
OOO 
OOO' 
OOO 
OOO' 
OOO 
OOO 
000 

O'  o o 

000 

OOO 

OOO 

OOO 

o o © 

OOO 

>ooo 

’OOO 
’COO 
» C 1'5  O 
> O u.  O 


"To  silos.  It  is  clear  that  llto  "next  neighbor"  information  contained  in  tho  primitive 
oonnootion  matrix  is  not  easily  readable.  lienee,  the  outputs  of  the  program  are  sorted 
ami  made  available  in  an  easily  readable  form  in  file  I'KMiH  T as  follows: 


l, ink  Naim' 

(5  characters) 


Link  Code 
(•_’  characters) 


Sift 


/ 

/ 

/ 

rom" 

Nam 


Cl  UAKPKN  ( I I t > J Cl  01  3(C'C  > 

— clo:12<<to 
Cl  00‘MCSf) 
Cl  0:11  (CA) 


S characters) 


SiU>  Serial  II 
(I!  eha ranters) 


NtlRFOl  k (120) 
I TBETTCGt 136) 
-PISCATWY f 194) 
WAV>HNG1N<  072) 


’To) 

Site  Name 
(S  characters) 


Next  Neighbors 
of  C KhAKUttK 


In  addition  to  the  easily  removable  user  eonstraints  ot  the  C’ireuit  I rarer  Progiam 
tins  program  has  one  important  eonstraint;  the  size  of  the  largest  primitive  eonneetion 
matrix.  This  matrix  is  rest  rioted  to  (150  x 150)  elements.  The  restrietion  is  again 
to  save  the  core  si/.e  of  the  program.  experience  with  the  data  base  indirates  that 
the  largest  network  eonsidored.  At TOY  ON,  does  not  contain  more  than  100  sites. 


:5.2.1.:’»  Connectivity  Search  Program 

Hus  program,  upon  gathering  the  "next  neighbor"  information  contained  in  a 
primitive  eonneetion  matrix  of  the  network,  determines  all  "simple"  paths  from  on, 
specified  site  of  the  network  to  another  in  terms  of  alternating  sequence  of  sites 


and  links. 


The  program  calls  one  external  procedure  containing  the  algorithm  to  determine 
all  "simple"  paths.  This  algorithm  is  based  on  a powerful,  yet  simple,  algorithm.* 
The  original  algorithm  was  written  in  SNOBOL.  The  core  of  the  algorithm  is  two 
loops  which  add  or  delete  sites  from  the  path  based  on:  1)  the  'next  neighbor"  in- 
formation, 2)  the  sites  already  contained  on  the  built  up  path  and,  3)  the  information 
regarding  addition/deletion  from  the  path  to  obtain  all  unique  "simple"  paths.  The 
"modified"  algorithm  is  a PL/I  coded  version  of  the  original  algorithm,  with  follow- 
ing modifications: 

1.  "Next  neighbor"  information  is  derived  from  the  modified  primitive  connection 
matrix  (see  Figure  3-13)  which  can  be  nonsymmetric.  This  allows  for 
"directional"  links  between  the  sites.  This  issue  is  of  great  importance  in 
large  networks  containing  a large  number  of  sites,  such  as  AUTOVON.  It 
also  permits  a sense  of  direction  to  be  introduced  in  the  links  connected 

with  "gateway”  sites,  such  as  cableheads. 

2.  A trap  is  introduced  at  a proper  location  in  the  algorithm  to  take  care  of 
"sink"  sites  having  no  "next  neighbors"  (the  row  corresponding  to  this 
site  in  the  primitive  connection  matrix  contains  no  link  codes).  This 
trap  enables  the  algorithm  to  recover  from  encounters  with  such  sites  and 
continue  on  its  way.  The  program  will  print  out  the  name  of  the  "sink" 
site  whenever  it  is  encountered  during  the  path  buildup. 

Figure  3—11  shows  the  functional  input/output  block  diagram  of  this  program. 

The  inputs  N,  PCM(. ,.),  S1TES(.),  and  SITEN(.)  are  contained  in  file  PRMOUTi  and 
NII-,  NI  T,  PATIILTII,  NUMC , and  FKOMTOS(.)  are  contained  in  file  CNSKINi  (i  in 
PRMOUTi  and  CNSKINi  refers  to  i^’  the  switched  network)  where: 


♦Reference:  D.  Kroft,  "Ml  Paths  Through  A Maze,"  Proc.  of  IEEE,  January  1007 , 
p.p.  88-90,  (Unclassified). 


for  Connectivity  Search  Program 


3.  2.  2 Circuit  Tracer 


/*♦***«*******************  *»****************i 

/♦  *1 AT  N PROCFDURE  TFCA 

/*»*************+******. 


/*  Ml  LT T T L CIRCUIT  ANALYSE!  PROCRAM  ♦/ 

/*  */ 

/♦  THIS  P ROCEDU  RE  DETERMINES  THE  LINKS  AND  THE  SITES  WHICH 
CONSTITUTE  A GIVEN  CIRCUIT  ALONG  WITH  TH F IN/CUT 
FLAGS  FO F CIRCUIT, LINK (S)  AND  SITES  FOR  ALL  TEH 
ALPHANUMERICALLY  SORTED  CIRCUITS  IN  THE  CIRCUIT 
MASTER  FILE  */ 

/*  v 

/*  INPUTS-  (FILE)  ,CKT(.)  ,ICKTNO  */ 

/♦  (FILE):  THIS  REFERS  TC  A L I USER  DFFINEE  TOTAL 

FILES  INCLtiriNG; 

MASTER  FILES:  P PICT  , R MT  F , P M IK  , P MS  I 
AN  D 

V A R I A B L p FILES:  RVCT,  RVTL 
cr  (.  ) : ARRAY  OF  9 CHARACTER  CIRCUIT  CCSD*S 
LCKTN  ':  NHMBLP  OF  CIRCUITS  TO  HF  TRACED  */ 

/*  */ 

/*  OUTPUTS-  I.KCKT  , SICKT  .SERIES  */ 


r 


LKCKT:  A STRING  CF  CHARACTERS  CONTAINING  CCS  D# 
AND  C I F.CU  IT  IN/OUT  FLAG  ( F)  AS  HEADER 
FOLLOWED  MY  THE  NAMES  CF  THE  LINKS 
TRAVFRSLT  ALONG  WITH  THFTR  IN/OUT  FLAGS 
ANT  A SPECIAL  CHARACTER,  i AS  TRAILER 
( t-'S  CHAHACiFRS  FOR  MAXIMUM  ALLOWED 
99  LINKS  ON  THE  CIRCUIT  PATH  ) 


FX  AMPLE : 

CCSD*FLINK  IF  I,]  NK2F- 


-L  INK  99F'(# 


(NO?;-;-  FLAG,"  T S ONE  CH  A R ACTE  P AND  LINK1 
m H RON  G li  L INK  9 o fACil  CONTAINS  r. 

CHARAC  Tr  FiS ) 

SICKT:  A STRING  CF  CHARACTERS  CONTAINING  CCSTI 
AND  CIRCHM  IN/OUT  FLAG  (F)  AS  HFADFK 
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FOLLOWED  BY  IMF  NAMES  C?  THF  SITFS 
TRAVERSED  ALONG  hi  IT  H THEIR  TN/OU7  FLAGS 
AND  A SPECIAL  CHARACTER,  <i  AS  TRAILER 
{ 9 11  CHARACTERS  FOR  MAX  IS  HR  ALLOW'D 
1ft  SITE?  CN  THE  CIRCUIT  PA'*!!  ) 

EX  AMPLE: 

CC  SD  * F SITE  1FS1  TE  2F SI  T E 1 - ^ F A 

(NOTE-  SITE!  THROUGH  SITE1 ' FACII  CONTAINS 
8 CHARACTER  SITE  NAME) 

SERIES:  A STRING  OF  CHARACTERS  CONTAINING  CCSC# 

AND  C IRC  PIT  IN/CfIT  p l AG  (F)  AS  HEADER 
FOLLOWED  EY  THF  SITE  SERIAL  #S  OF  THE  SITES 
, THE  LINK  CODES  AND  THE  IN/CHT  FLAGS  OF 
THE  LINKS  TRAVERSED  AND  A SPECIAL 
CHA  F AC  TF  i; , u)  AS  TRAILER  ( 6)8  CHARACTERS 
FOR  MAXIMUM  ALLOWED  99  LINKS  AND  1 9 
SITES  ) 

EX  AMPLE : 

CCSD  #FSITENO  1I.I  NKCOHE  I17 LI  NK CO  DE 99FS1  TKNO  1 'v'j) 


(NOTE-  SITFNOT  T’l  RCIIG  H SITFNOVK  EACH  CONTAINS 
i CHARACTER  SITE  SERIAL  # 

AND 

LINK  CO  DEI  THROUGH  LINK  CODE 9 9 EACH 
CONTAINS  1)  CHARACTER  I INK  CCDE)  V 


,*♦***♦***< 


/■***  NUTTS  +**/ 

/*  AN  rx  *T  IS  TAKEN  OUT  OF  THE  PROCEDURE  WITHOUT 
ERROR  MESSAGES  FOR  TOT  A I RETURNED  STArtlS-.=  OK 

EXIT  IS  ALSO  TAKEN  OUT  OF  THF.  PROCEDURE  WITH 
'■RROR  MESSAGES  FOR  ANY  CNF.  OF  THF  FOLLOWING: 

1.  INPUT  CIRCUIT  NOT  POUND  IN  MASTER  FILE, 

RMC1 

2.  IF  TM’7  TRUNK  SEGMENT  TNT  SITES,  AS  GIV*-'N 
IN  VAEIA3L17  s‘ILr.,RVCT,  ARF  NuT  FOUND  IN 
VARIABLE  ” ILE , F VTL  ( THIS  COULD  EE  CAUSED 
UY  irfROFER  ORDER  OF  LINKS  IN  H V TL  ) 

I,  IP  Tit 17  TRUNK  SEGMENT  END  SITES  ARE  THF  SAME 
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(CSFK.SST  ')  CHAR(8), 

F T S I T.H  CHAR  ( 8)  , 

(SRFF.ShTC)  CHAM  *)  , 

.as;>  CHAP  (52); 
rci.  1 N ASI^CTRCHTT, 

1 fl ''  T r l AO  Cil  AR  ( 1)  , 

2 HCTFELC  CHAP  ( 8)  , 

2 HC7FFAC  CHAR(.I), 

2 M *TTOLC  CHAP  ( 8)  , 

2 HCTTFAC  CHAF  ( 1)  ; 

TCI.  " AS"  F \_C  IRCUIT  CitAP(?J)  DEFINED  H AST_CI  RCtllT 
DC  I.  1 V A HI _CTS  , 

2 VCTSCO NTROL  CM  A R (7)  , 

2 VC  ISSTTE  CHAP  (11), 

2 VCTSS ITT  CHAR  (8); 

PCI  VARIABLE  CTS  CHAP  (2(  ) DEFINED  VARI_CTS; 

PC L 1 V A RI_T IS , 

2 VTLSLI  NK  CHAP  (r.)  , 

2 VTLSSITR  CHAR  (11), 

2 VTIS8IT7  CHAR  (8); 

PCI  VAR  :a  Ut_n,5  CHAD  (24)  DEFINED  V A RI_  1 18  ; 

PCI  1 M A?  T_  LT  N K , 

2 H LKFt  AtS  CHA  F ( 1 ) , 

2 MLKCODE  CHAR  (2)  ; 

PCI  M A S I F R_  L I N K CHAR(3)  PFFINED  HAFT  LINK; 

PCI.  1 N A 8 I_  8 1 T17  , 

2 Mimi  CHAF(1), 

2 M 8 IN  HI 3 CHA?  ( j)  ; 

PCI  HASTE R_8TT  E CHAR(4)  DEFINED  N AS?_S IT  E; 

/*  */ 

/*  ('PEN  TOTAL  FTLFS  FOR  EFAD  ONIY  ACCESS  ♦/ 

/*  */ 

FDNCT-JUFST ; 

T AS  KI D= ' PECAN'; 

T PH  0 P • FDTA  1'  ; 

CALL  PBIOfS , ) ; 

/*  V 

/ * CPFN  F I L F S ♦ / 

/*  V 

F’D  NCT  =OPEN H ; 

ST  A T 118=  C K; 

TFIL  '8  ( 1)  = 'RHCT'  ; 

TFT  ICC.  (2)  = ' F VC?  * ; 

T FILES  ( <)  ^'PITR*  ; 

IF!  ICS  ( 4)  - • PVT  t » ; 

IFU  -C  (8)  RFLK*  ; 
rnL'Fif.)  - ' h s : • ; 

CAI  L PDi  C (4  , 1 ) ; 

IF  ( 8 " A P S -» =P  K ) THEN  C,0  TO  F XT  T ; 

/*  V 

/*  F VS  RT  CIRCUIT  N AST  FR  FI  L F */ 


/* 

FilNCT-  RESTS; 
CALL  n B 10  (3, ")  ; 

/* 


/*  E SA  D CIRCUIT  MASTFR  FILF  SERIALLY  TO 
FULL  OUT  CCSD#S  */ 

/*  V 

ST  ATUS=OK  ; 

LCKTNO= 

CIRCUIT_REAP:  00  WHILE  (STATUS -«=KNDF)  ; 

FU NCT  = S EQRM  ; 

STA  TMS=OK; 

F I L FI  H=  • RMCT  * ; 
ELMLIST='RMCTCTRLEND.  • ; 

CALL  DEIO  (b,  1)  ; 

IF  ISTATHS-*=0K)  THEN  GC  ?C  FXIT1; 
LCK  TNO  =LC  KT  NO ♦ 1 ; 

CKT (LCKT  NO)  = 10 ARE  A ; 

END  CIRCUI T_PEAD ; 

E XI T1  : ; 

/*  V 

/*  SORT  CCSPAS  ALPH  ANU  MEE I C ALLY  */ 

/*  */ 


CALL  SOK  T ( LCK  TNO ,CK  T ,C  K T , T MFD)  ; 


PUT  FI LF ( DEC  AOU  T)  LIST  ( ’ TOT  AL  CIRCUITS  TR ACED= • , LC KT NO) ; 
PC  1=1  LCKT NO; 

PUT  FILE(PFCAOUT)  FDIT(CKT(I))  (CCL  (1  T)  , A (9)  ) ; 

FNP; 

/*  V 

/*  READ  A P CC0  R D CORRESPONDING  TO  "'HE  SPECIFIED 
CIRCUIT  FROM  THE  CIRCUIT  MASTER  FILE  */ 

/*  V 


/♦***♦** 


P 3 GIN  MAIN  LOOP 


‘/ 


LPP: DO  L00P=1  TO  LCKT NO; 

IUK  =U  ; 

PUT  SKI P ( 1 ) FI LE {PEC A OUT ) ; 

FUN  CT=R F A DM ; 

STATUS=CK ; 

FIL tin*' RMCT' ; 

CONT ROL- CKT ( LOOP)  ; 

EL  ML  IS ' R MCTFI.AGR  MCTFRLCR  MCTFF  ACRMCTTCLCRMCTTF  ACFN  D.  • ; 
CALL  PDIO  (7,  1)  ; 

IE  (ST AT US = ' MRNF' ) THEN 
PO; 

PUT  SKIP  FILE(PECACUT) 

FDIT  (•  * * CIRCUIT=  ' ,CKT  ( ICCP)  , • NOT  FOUNT') 

(COL  ( 2)  , A(  1 1)  ,A  (O)  ,A  (1C  ) ) ; 

GO  "0  PE9 ; 
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IF  (STATUS-=OK)  THEN  CO  ^0  KXT,r; 

*!  ASTER  C IRCUIT=IO\R FA  ; 

LKCKT,SICKT,SERIFS= CKT  (LOUP)  J|NCTFLAg';  /*  CCSP#  AN  I'  I/O  FLAG 

APDEP  ♦/ 

/♦  ♦/ 

/*  LINKAGE  PATH  TO  CISC  HI T-TKUNK-SITC  VARIABLE  FILF- 
TO  PETEPMTN  E ALI.  TRUNKS  CONTAINING  THF 
CHOSEN  CIRC  LIT  */ 

/*  */ 

FL  GG  = ' ; 

TPIPSFX X , TM  1ST XX=  (8)  ' “»  ' ; 

E F ( 1 ) = ' LKCT ' ; 

/♦*♦♦  BEGIN  LOOP  FOR  A CIRCUIT  ***♦/ 

:P0  WM I LE  ( PR  ( 1)  •»  = EN  CP)  ; /♦  LOOP  FOR  FINPINC  All  TRUNKS 

IN  THF  GIVEN  CIRCUIT  */ 

LL, LLL  = 3; 

PO  1 = 1 TO  SO  ; 

TMP^RLC  (T ) , TNPTOLC  ( I ) , TUPS  XX  (1)  = (8)  • ' ; 

IF  (I<=49)  THEN  T FPLINK  (I)  , TMPLXX  (I)  = (S)  • ; 

FNP; 

T MPRF  = T M F SF  X X ; 

'T'MPRT  = TMPSTXX; 

REFFK=  RK ( 1 ) ; 

FUN  CT=R  F A P V ; 

ST ATt1S=0K  ; 

FI LEID= ’ RVCT • ; 

LKP  AT!I=*  RMCILKCT*  ; 

CCNTROL=  CKT  ( LOOP)  ; /♦  SAHr  AS  PE  FOR  F */ 

EL'IL  1ST  ’ 1VCTRMTRRVCTP  M5IKVCTT0ICENP.  • ; 

CALL  D B lo  (0,1)  ; 

IF  (STATUS-*=OK ) THEN  GO  TO  IXIT; 

V ARIA3LF  CTS=IOARFA; 

TMPSFXX  = SIIBSTR  (VCTSSITF,  1,8)  ; 

TMPSTXX  = VCTSSTTT; 

/+  V 

/+  SWITCH  THE  END  SITES  OF  THE  TRUNK 
SEGMENT  (IF  NEEPEP)  V 
/*  */ 

IF  ( FLGG  = 1)  TMFN 
PC; 

FLGG=  1 ; 

GO  TC  N0_C1I FCK ; 

FNP; 

ELSE  ; 

IF  (TMPRT=TMPSFXX)  THEN  GO  TO  Ctl  A NG  E_F  XI  T ; 

IE  (TMFRT=THPSTXX)  IHrN 
PO; 

TM  PR  8 = TMP  S FX  X ; 
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-*  ' Tl^lUfcNuNllIM  III 


vs**?*! 


\ 


\ 


i 


TMPSFXX=TMPSrxX  ; 

•hpstkx  = rnPK  ?; 

Ui  ”'0  CHANG 2_E XI?; 

?N  n‘ 

FLSE 

C (I  A N G>'_  "X  !T:  ; 

NO_CH KC  K : ; 

PF  (1)  =RpFSS; 

1 f'  = H N r P)  THEN  GO  10  PER;  /*  AH  TRUNKS  FINISHFP  */ 

IF  ( TO  K ) ” !H  N 

DO; 


CALL  *LAGS(nCTFlAG,  IMPS)  ; 

CK?X  = CK?  ( IOC  F)  | | j | T M f 5 ; 

!”’T  SKIP  (2)  FILL  (DECAOUT)  FDIT  ( ' CCSD#  = • , CKTX) 

(CM  (23)  , A (->)  ,A  (15)  ) ; 
PUT  SKI  r (1 ) FILE  (PrCAOtr)  ; 

1.1  K = 1 ; 

FNP; 


ELSE; 

PL.  SKIP  F I L F ( P EC  A CO T ) F P IT ( ' T RU NK= • , V CTG CONT ROL , ' » 

T'lFSFXX,'  ' , TM  PS1 X X) 

(CPI  ( IS)  , A ((')  , A (7)  , (2  ) (A  (2  ) , A (8)  ) ) ; 

/*  */ 

/*  L INK  AG4’  PATH  TO  TK  UN  K-  LI  N K- SI  TF  VARIABLE  FIIE- 
TO  P.  FT  r R K I N l THE  LINK(S)  IN  THE  CHOSEN  TRUNK 
I.'  WHICH  THE  SPEC  I FIFO  DEDICATED  CT  KCUI  T Bp LONGS 
AND  THE  SITES  TRAVERS  FT  ♦/ 


/***♦  PPG  IN  LCCF  FOR  A TRUNK  ***♦/ 

TRUNK  ; PO  W"ILF  (R?  (2)  -=FNPP)  ; /*  LOOP  p0R  FINDING  ALL  SITES  AND 

LINKS  IK  A GIVEN  TRUNK  */ 

REFER- RE  (2 ) ; 

FUN  CT  = H F D V ; 

SmATt1S=CK; 

FILE ID= • R VTL ’ ; 

LKP ATH=  » RMTKIKTl*  ; 

CONTROL  -VC  TSCONTPOL ; 

ELFLIST=  * R VT  L RNLK  RVTLRHS  I R VT  LT  OLC  FN  C.  • ; 

CALL  D3 10  (9,  1 ) ; 

IF  (STATUS-.- OK)  THFN  GO  TO  EXIT; 

VAR IADLF_  TLS= ICARF A; 

/♦  */ 

/*  CRKAl'E  ARRAYS  OF  FROM  ANT  TO  SITES  AND  LINK? 

IN  T H r'  CI10SFN  TRUNK  */ 

/*  */ 

LL  - LI.  ♦ 1; 

TKPF  R LC  ( I L)  =SU  DS  T P (VTLSS  I'r  F , 1,0)  ; 


A 


:t-.rvi 


TH  K N 


**  P10LC  (LL  ) VTI.SSI — ; 

•v.n  INK  (IL)  1 VTL SL IN  K ; 
p ill'  .’)  ritri 

TO; 

I"(  (TirFFLC(  LL.)  = T N F F I.  L C (H-1)  ) s 
■(TIP"'  U.C  (L„ ) - TNI’TOIC  (LL-  1)  ) ) 

^C; 

T'M’EFLC  (LL)  , LMPTi  LO  (It)  (3)  ; 

TP  IT  NK(II)  = (r>)  • • ; 

LL-LL-1; 

FNP; 

F LS  r ; 

LSF; 

t-  ( :)  R r V 'I  ; 

NT  TRUNK; 


***  > NP  LOOT  FOP  A TFUNK  **••/ 

/*  ♦ / 

/*  'MOV  A .IF  AY:;  to  OE’TrKNINF  TH"  LIN  KS  ANP 

;-:TF'.'  ■"  r av  e es  fc  in  thf  chosen  trunk  by  the 
O I V r N CIRCUIT  */ 


I ■ , JJ  , K ii  , \ ' ; 

! LL  LL; 

/*  »/ 

* C ? "AT ARRAYS  i,p  SITES  A Nl'  ITNKS  IN  THE  TRUNK 

olLLit  ARE  CCNKCN  TO  EOTH  THE  CORCUIT  ANT  THE  TRUNK  * 

/*  * / 

I-P-.  LC  (1  MO)  - T T P T0  LC  (LLI)  ; 
r*-'1  :PO  i - 1 TO  L L L ♦ 1; 

IE  (T.NPF^LC  (I)  -TNrSE'XX)  THEN  JJ  = I ; 

IF  (T NTV5LC  (I) = TNPSTXX)  THEN  KK * 1; 

FNP  'i.  1 ; 

I"  ( (.10=  ) | (KS.  ) ) THF  N 

nr ; 

PUT  SKI"  EML"  (P FCAOIIT) 

FP  IT ( 1 * ♦ ERKOK  T RU  NK  - • , VCTSCON TROL , ' CIRCUIT*', 
CRT  (l.rrr)  ) 

(C  'I.  (.')  ,A  (IS)  ,\  (7)  , (.'  ) A ('<*)  ) ; 

: i =o  =.  v»i . 

* * . * 

ENT; 

' ' LS  «• ; 

IF  (U.1=!\N)  TH’N 

PIT  SKIP  ETL.)  (DEC  A OUT)  FI'1T('*»  ERFCR=  • , 

V CTSCON'T  ROL)  (C  'L  ( I ) , A <S)  , A (7  ) ) ; 

00  TO  '17; 

FNP; 

MS"; 


I 


IF  (KK  XI J ) THEN 

/♦  V 

/*  TRUNK  AND  CIHCU1T  DIRECT  ION  IS  IDENTICAL  */ 

/*  */ 

DC; 

11  = 1; 

LLL=KK-JJ; 

CE2:DO  I=JJ  TO  KK; 

K=  K*  1 ; 

TMPSXX  (K)  =THPFRLC  (I)  ; 

IF  (KKK)  THEN  TMPLXX  (K  ) =TMPL  INK  (I)  ; 

END  DE2; 

GO  TO  DF 4 ; 

END; 

EL  SF  ; 

IF  (OJ  >KK ) THEN 

/♦  V 

/*  TRUNK  AND  CIRCUIT  DIRECTIONS  ARE  NOT  IDENTICAL  */ 

/*  */ 

DO  ; 

11  = 2; 

LLL= JJ-KK; 

EE 3: DO  I=JJ  TO  KK  BY  -1; 

K=  K*  1 ; 

TM P SXX  (K)  =TMPFPLC  (I)  ; 

IF  (XJJ)  TH^N  TMPLXX  (K-1  ) =TMPL  INK  (I)  ; 

END  DE3  ; 

GO  TO  DE4; 

END; 

ELSE  ; 

DE4  : ; 

FtSITE=TMP?XX (K) ; /*  FINAL  SITE  SAVED  V 

/*  V 

/♦  READ  RECORDS  IN  THP  SITE  AND  LINK  MASTER  FILFS 
TO  DETERMINE  IN/OUT  FLAGS,  LINK  CODES  AND  SITE 
SERIAL  *S  */ 

/*  */ 

DES ; DO  J-1  TC  LLL; 

CALL  FIND  (TMPSXX  (J)  , THPLXX  ( J)  ) ; 

END  DE5 ; 

EN  D; 

DE7:  ; 

END  C IRCT; 

/♦*««*  END  LOOP  FOR  A CIRCUIT  ****♦/ 

DE6  : ; 

/* 

/•  ADD  FINAL  SITE  ♦/ 

r* 

F U NCT= READM ; 

STATUS -OK; 


FI LEID  = ' BMSI  ' ; 

CCNTBOL=FIST?E; 

IF  (C0NTR0L  = (8)  ' O' ) THEN 
DO; 

PUT  SKIP  FILE  (DECAOUT) 

EDIT ( • **  ER  FOR  IN  FINAL  SITE  FOP  CIR CUIT= ' ,C KT  (LOOP) ) 
(COL  (2)  ,A  (35)  , A (9)  ) ; 

GO  TO  DE9 ; 

END; 

ELSE; 

ELMLIST='RMSIFLAGRMSINUMBENE.  ' ; 

CALL  DB 10 (7,1); 

IF  (STATUS-»=OK)  THEN  GO  TO  EXIT; 

MASTE°_SirE=ICABFA; 

5ICKT  = SICKT  | | FISITE | | MSIFLAG  ; 

SERIE3=SEHIES|  | MS  I NIJ  ME; 

PUT  SK IP  ( 1)  FILE  (DECAOUT)  ; 

LKCKT=  LKCKT  | | '3'  ; 

SICK  1=  S ICKT J I'D'; 

SERIES=SERISS|  | '<9*  ; 

/*  V 

/*  SORT  CIRCUIT  DATA  FOR  OUTPUT  FORMAT  */ 

/♦  V 

I I = L EN  GT  H (LKCKT)  - 1 1; 

1 1 = BI N ( 1 1/  6 ,15,0)  ; 

DC  KK=  1 TO.  II; 

1=  1 1 ♦ fa*  (KK-  1)  ; 

J=1 1 +9*  (KK-1 ) ; 

K = 1 1 *6*  (KK-  1 ) ; 

L=14+  6*  ( KK-  1)  ; 

LFP  = SUBST  B (LKCK’"  , 1 , 6 ) ; 

SFR=SUBSTP (SICKT,J,9)  ; 

LLFR=SU3STB (LFR , 1 ,5)  ; 

LKFL=SU3STR  (LFR,  6,1)  ; 

CALL  FL A OS (LKFL , L KF L5)  ; 

SSFR=SUESTF(SFR, 1 ,8)  ; 

FR  FL=SU 3ST  F (SFR,9 ,1)  ; 

CALL  FLAGS  (FRFL,FREL6)  ; 

SRFR  =SU8STR  (SEFIES,K,3) ; 

LXT=SUBSTB(SERIES,L,  2)  ; 

.1=11  +9  + KK  ; 

K = 1 1+ 6*KK  ; 

STC  = SUB3T R (SICKT,  J,9)  ; 

SSIO  = SUB  SIR (STO,  1,8); 

ICFL=SU3STR(ST0,9 ,1)  ; 


CALL  FLAGS  (TCFL,TCFL5)  ; 


SRTO  = SIKiSTR  (SERI  FS  , K , 3 ) ; 

SI.S3=SSEP|  I*  ('  I I S!?  FP  | | •)  *|  |FRFl.S|  | | I LLFK|  | ' (*l  H-XT||  •) 

| | LKFL‘>  | | | |SSTO|  | • ( ' I | S PT  0 | | • ) ' I I TO  FL  c ; 

PUT  SKIP  FILE  (DECAOUT)  i:nTT(SLSF)  (CO  L ( 1 A)  , A ( S 2)  ) ; 

ND  ; 

r :■  <) : ; 

KNP  L F P ; 

/♦*♦♦**♦  F N D MAIM  LOOP  **»***♦/ 

X IT : ; 


/ * 

V 

/*  CLOSE  FILES  */ 

/ * 

*/ 

CI  O S E 

FILE  (DECAOUT)  ; 

FlINCT 

-CLOSM  ; 

STATU 

S =0  K ; 

C A L L 

DDT  0 (4  ,‘  ) ; 

/* 

V 

/ * SIC,  A OF**  Til  F TASK 

*/ 

/* 

* / 

FlINCT 

- DEQUE ; 

T A S K I 

0= ' DECAM • ; 

CALL 

EB 10  (4,0)  ; 

/**♦«♦*♦*  + *»*■ * * * « * * * * n * » * * * t * « * * * * * * * * * * 1 1 * * * * * t M * t ♦ / 

/♦  P EG  I N t NT  K ii  N A L IhOCFDUR  FS  OF  PROCEDIJRF  DEC  A */ 

/ ♦*♦*****«♦ 


/♦  FRCCFDURE  FIND  */ 


FT  ND  : FROC  ('*!  S 1 m E , FI  LINK)  ; 

DCL  FtSITK  CHAP  (3)  , FI  LINK  CHAR(S); 

F'lNCT  Rt'ADfl; 

STMUS=OK  ; 

FT LFI D=  • RMS  I • ; 

CON  T t\OL  F SITE; 

IF  (CONTROL-  (3)  ' ' ) TIIFN 
DO; 

r .IT  SKiP  F T L (PEC  A OUT)  EPIT('**  FUROR  TR  (INK  = ' , 
VCTSCONTROL)  (COL  ( 2)  , A ( 1 S)  , A ( 7)  ) ; 

GO  TO  EXIT; 

END; 

FL  S F ; 

F uni  ST  = ' R MS  T F L AO  i!  MS  I NU  M PEN  F.  ' ; 

CALL  DUIO  (7,1); 

I F (ST  ATUS-»=  OK)  TIIFN  GO  TO  FXTT; 

MAST  EE_S  IT  F.=  1 0 A BE  A; 

S TCK  7 - S ICK  T | I FI  SI  TFT  I I M SI  F LAG  ; /♦  SITE  ADDED  ♦/ 


3? ATU3=CK  ; 

FTLSI7='  RMLK'  ; 

CON  TROL  = F ILTN  K ; 

IF  (CONTROL^  (r>)  • ) THEN 

DO; 

EMT  3KIP  KILE  ( DECAOUT)  EDIT  {’  * * ERRCR  TRUNK=», 

VCTS CONTROL)  (COI.  ( 2)  , A ( 1 5)  , A ( 7)  ) ; 

GO  TO  EXIT; 

END  ; 

ELSE; 

ELMLI3T=  ’ RMLKFLAGRMLKCOCEEND.  ’ ; 

CALL  DPIO  (7,  1)  ; 

IF  (ST ATtFS-»=  OK)  THEN  GO  70  EXIT; 

MASTF7_LINK= 10 ARE  A; 

LKCKT=LKCKI| |FILINK| IMLKFLAG;  /*  II NK  ADDED  V 

SF. R I E3=  SERIES  | | MS  I NU  MB  | | MLK  CODE ( | P!LK  FL  AG;  /*  LINK, SITE  AND 

LINK  FLAG  ADDED  */ 

END  FIND; 


/*  I ROC E DM  PE  FLAGS  */ 


/*  NOTE-  ALL  "HE  CHARACTERS  USED  IN  CHARS  EXCEPT  CHARACTER  "A”  HAVE 
'"HE  FOLLOWING  MEANINGS  IN  THEIR  RESPECTIVF  CHARACTER 
POSITIONS 

A= • 1"  '"I  loot b : "IN"  (AVAILABLE)  STATE 

S=')T'1!V,i',D;  S AT  ELL  IT  r LINK  OUTAGE 

>1  = • Vi.DV''  ) VH:  MUD 

J=»  v'.i  - i >'  i p : JAMMING 

B='  IEgDOjIL’ P:  BLAST 

• t>  r i 1 • D : EMT  V 


F LAGS:  FROC  (CHARI  .CHARS)  ; 

DCL  CHARI  CHAR  (1)  ,CI!AR5  CHAR(S)  , 

BITS  DIT(H)  ; 

CHA35=' SMJBE' ; 
g r t P = UN  SP  EC (CHAR  1 ) ; 

IF  (BIT8=  ( *0 ■’'O''  • B)  ) THFN 

DO; 

CH ARS= • A A A A A • ; 

GO  TO  XT  T ; 

END  ; 

ELSE; 

DU  1=4  TO  d; 

IF  (SUBS TP  (BITS, 1,1)=’’  *3)  THFN  S II BSTR( CHARE, 1-3,  1)  =•  A'  ; 
END  ; 

X TT : ; 

END  FLAGS; 


HT 


/*  FROCEDUF  E SORT  */ 


SORT  : PRO  C ( N , X IN  , XOUT,  TP1P)  ; 

HCL  (X~N  (*)  , XGMT  {*)  ,TMF)  CHAE(*)f 
(M  , N , I / J ) BIN  FIXED  (1  S,0)  ; 

DC  1=1  TO  N; 

XCUT  ( T ) = X I N (I) ; 

F.N  D ; 

/*  V 

/*  MODIFIED  SHELL  SORT  LOGIC  */ 

/*  V 

n = i; 

SI  : DC  1=1  TC  N WHILE  ( M<  N)  ; 

M=M + X; 

END  SI  ; 

H=H~  1; 

BACK:  ; 

M =M/2; 

S2 : DO  J=1  TO  N-M; 

TH P = XO  DT  (J  +H  ) ; 

S 7 : DC  I = J TO  1 EY  - H ; 

IF  (XCDT  (I)  <=T  HP)  TH*N  GO  TO  NEXT; 
XO’TT  { T ♦M)  =XOOT  (I)  ; 

END  S3; 

NEXT:  ; 

XOUT  (1+  H)  =T1P; 

FND  S 2; 

IF  ( M> 1 ) THEN  GC  TC  BACK; 

END  SOFT; 


END  INTERNAL  PROCEDURES  CF  PROCEDURE  DFCA 


END  CFCA; 


//LKZE.  SYSLMO  D DD  DSN  = TOTA  L.  DB  LIB  (DEC  A 1*1 ) ,DISP=SHR 
//LKED.rPIC  DD  DSN=SYS9,  TCT  AL.  LINKLIDU,  DISP  = SHR 
//LKEE.SYSIN  DD  * 

INCLUDE  DBIC(DEIC) 

/* 

//  ^XEC  TCTAIU , PGN AME= DEC  AM, REGTON= 3U9K 
//rECAOUT  DD  DSN=r 1 76S.DECAOUT.DATA ,DISF=CID 
//RUCT  DD  DGN=Uir  i . F1 1 19 . FMCT, DISP=S HR 
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| ! 

//RMSI  DD  DSN=HH'' 1' . FI1 19.  RflSI,  DISP=S  HR 
| //EKTR  DD  CSN=UHOir  ,PI119.RMTRfDISP  = SIIR 

//RKLK  DD  DSN=I)UM..  PI119.  RMLK,DISP=SHP 
//  RVTL  DD  CSN=Url'1r.PI119.RVTL,DI£P  = SHP 
//RVC1  DD  DSN=mi’»1'  . PI119.  RVCT,DISF=SHR 
//SYSPPINT  DD  SY  SO  UT  = ( A , U) 


// 


/*  PRIMITIVE  CONNECHO  N MATRIX  ERCGRAM  */ 

/*  V 

/*  THIS  PROCEDURE,  UPON  GATHERING  INFORMATICS  ABCUT 
THE  THREE  SPFCTFIED  SWITCHFD  NETWORKS  FROM  THE 
FILE,  COMPUTES  THE  PRIMITIVE  CONNECTION  MATRICES 
FOR  THE  NETWORKS  IN  TEEMS  CF  LINK  CODES  AS  ELEMENTS  */ 
/*  V 

/*  INPUTS-  (FILE)  , J,K,L,TY1  (.)  , T Y2  ( . ) ,T Y3  ( . ) , 

S E RV  A 1 , S ERV  A2  */ 


/* 


/* 

/* 


(FILE):  THIS  REFERS  TO  ALL  USER  DEFINED  TOTAL 
FILES  INCIUDING  ; 

MASTER  FILES:  RM CT, R M TF , RM LK , RM SI 
AND 

VAFIADLE  FILES:  RV  CT, K V TL 
J:  NUMBER  OF  IDENTIFIERS  FOF  FIRST 
SWITCHED  NETWORK 

K:  NUMBER  OF  IDENTIFIERS  FOR  SECOND 
SWITCHED  NETWORK 

L:  NUMBER  OF  IDENTIFIERS  FOF  THIRD 
SWITCHED  NETWORK 


T Y 1 ( . ) : ARRAY  OF  3 CHARACTER  IDENTIFIERS  FCR 
FIRST  SWITCHED  NETWORK 

TY2 ( .)  : ARRAY  Or  3 CHARACTER  IDENTIFIERS  FOR 
SFCONU  SWITCHED  NETWORK 
I Y 3 ( . ) : ARRAY  OF  3 CHARACTER  IDENTIFIERS  FCR 
THIRD  SWITCHED  NETWORK 
S^RVAl:  8 BIT  (BYTE)  RE F RESE NT  ATI C N CF  USER 
DEFINED  "IN"  STATE 

SERVA2:  8 BIT  (BYTE)  RE  F RES  E NT  AT  I C N CF  USER 
DEFINED  "IN"  STATE  */ 

V 

0UTEU7S-  tHJU  , NHL,  NU  D 

NETW1  (.,.)  , NETW  2 ( . , . ) ,NFTW3(. ,.) 

NARY  1 ( , ) ,NARY2  (.)  , N A R Y 3 (.  ) 

STTE1  (.)  ,STTE2(.)  ,SITE3(.)  */ 
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N5TW1 : 


netw2  (. 


NETW3  (.  ,.) 


NARY  1 (. ) : 
N ARY  2 (.  ) : 
N A RY  3 (.  ) : 
5 IT  El  (.  ) : 
S ITE2  (. ) : 


S ITE3  (.  ) 


SITES  IN  THE  SECOND  SWITCHED 


SITES  IN  THE  THIRD  SWITCHFD 


NUMBER  OF  SITES  IN  THE  FIRST  SWITCHFD 
N ET  W 0 FK 

NUMBER  OF  SITES  IN  THE  SECOND  5WIT( 
NETWORK 

NUMBER  OF  SITES  IN  THE  THIRD  SWITCt 
NETWORK 

PRIMITIVE  CONNECTION  MATRIX  OF  THE 
FIRST  SWITCHED  NETWORK  WITH  2 
CHARACTER  LINK  CODES  AS  ELEMENTS 
PRIMITIVE  CONNECTION  MATRIX  OF  THE 
SECOND  SWITCHED  NETWORK  WITH  2 
CHARACTER  LINK  CODES  AS  ELEMENTS 
PRIMITIVE  CONNECTION  MATRIX  OF  THE 
THIRD  SWITCHED  NETWORK  WITH  2 
CHARACTER  II NK  CODES  AS  ELEMENTS 
ARRAY  OF  3 CHARACTER  SITE  SERIAL  I! 
FOR  FIRST  SWITCHED  NETWORK 
ARRAY  OF  3 CHARACTER  SITE  SERIAL 
FOR  SECOND  SWITCHED  NETWORK 
ARRAY  OF  3 CHARACTER  SITE  SERIAL  #5 
FOR  THIRD  SWITCHED  NETWORK 
ARRAY  OF  8 CHARACTER  SITE  NAMES  IN 
FIRST  SWITCHED  NETWORK 
ARRAY  OF  8 CHARACTER  SITE  NAMES  IN 
SECOND  SWITCHED  NETWORK 
ARRAY  OF  8 CHARACTER  SITE  NAMES  IN 
THIRD  SWITCHED  NETWORK 


NAMES 


NAMES 


AUXULIAPY  OUTPUTS- 


SITE11  (.)  , SI TE2 2 ( . ) ,SITF33(.) 

SITENMI  (.  ) ,SITENMS  (.  ) , SITES  NI  (.  ) , NUSI 
LINKNM  (.)  , L INK  CO  ( . ) ,LINKCOS(.)  , N ULK 


SITE1  1 (.) 
SITE22  (.  ) 
SITE33  (.  ) 
STTFNMI  (.  ) 


SITENM  S ( . ) 
SITESNI  {.) 


NUSI  : 
LINKNM  (.)  : 

LINKCO  (.  ) : 


SAME  AS  SITE  1 ( . ) BUT  AL FH AN UM ER IC ALL Y 
SORTED 

SAME  AS  S IT  E 2 ( . ) BUT  ALPHA N UME R ICA LL Y 
SORTED 

SAME  AS  S IT  E 3 ( . ) BUT  ALPHA  NHMERICA  LLY 
SORTED 

ARRAY  OF  8 CHARACTER  SITE  NAMES  OF  ALL 
THE  SITES  AS  THEY  EXIST  IN  SITE  MASTER 
FILE,  RMS  I 

SAM?  AS  ABOVE  BUT  A I FII  A NU  M E RIC  ALLY 
SORTED 

ARRAY  OF  3 CHARACTER  SITE  SERIAL  *S 
AS  THEY  EXIST  IN  THE  SITE  MASTER 
FI LE , R MSI 

NUMEER  OF  SITES  IN  SITE  MASTER  FILE 
APRAY  OP  5 CHAPA CTFR  LINK  NAHFS  CF  ALL 
THE  LINKS  IN  THE  LINK  MASTER  FILE,RMLK 
ARRAY  OF  2 CHAFACTEF  LINK  CODFS  OF  ALL 
THE  LINKS  IN  THE  LINK  MASTER  EILE,RHLK 
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LINKCOS(.  ):  S A HE  AS  ABOVE  BUT  AL FH AN  UN ER IC ALL Y 
SORTED 

NIJLK:  NUMEER  OF  LINKS  IN  THE  LINK  HASTER 
FILE  */ 


PFIH :PFOC  OPTTONS(H AIN)  ; 

/*  PROCEDURES  CALLED  BY  PROCEDURE  PRIH  */ 


/*  EXTERNAL  PROCEDURES  */ 


DCL  DECA  EXT  EN  TP  Y ( Cli  A F (Q)  ,CH  AR  <605  ) VAR  ,CH  AR  (Dll)  VAR, 

CHAR  (6(  8)  VAR,  EIN  F IX  ED  ( 1 5,  0 ) ) ; 

FCL  NBA  FXT  ENTRY  (BIN  FIXED  (1  5 ,0)  , CHAR  (608)  VAR, EIN 

FIX  ED  (16,0),,  ) ; 


/*  INTERNAL  EPCCEDURES  */ 


/*  DCL  COP  EL  T SI  ENTRY  (DIN  FIXED(1  6 ,0  ) ) ; */ 

/*  DCL  CORE ITSI  ENTRY  (EIN  FIX  EC  ( 15,L  ) ) ; */ 

/*  DCL  COR  ELI  SIM  EN  TR  Y (BIN  FI  XED  ( 1 5 ,0)  , ,)  ; */ 

/*  DCL  SORT  ENTFY ( EIN  FIX  ED  (1 5,0 ) , , , ) ; */ 

/*  FCL  r?N  T 3NTP  Y (B IN  FIXED  (15,0 ),,,,)  ; */ 


/*  DECLARATIONS  FOR  THE  FILES  AND  THE 
IDENTIFIERS  OF  PROCEDURE  PRIM  */ 


m.  PRIM  IN  INPUT  FILE  STREAM, 

PRMCUT  CUT  FUT  FILE  PRINT  STREAM, 

PRMOUT 1 OUTPUT  FILE  STRFAM, 

FKMCUT2  OUTPUT  FILE  STREAM, 

PRMOUT  3 OUTPUT  FILE  STREAM; 

/*  FTL c PRIMIN  CONTAINS  1.  THF  NUMBER  AND  THE  DISCRETIONS 

CF  IDENTIFIERS  AND  2.  TFF  "IN"  STATE  BYTES 
FILE  PRMOUT  CONTAINS  1.  ALL  THE  CIRCUITS  TRACED  2.  THE 
ALFHANUMERICALLY  SORTED  SITE  NAMES  VS  SITE  SERIAL  NO 
A”D  LINK  CODE  VS  LINK  NAMES  TABLES  AND  3.  THE  NEXT 
NEIGHBOR  INFORM  AT ICN  FOR  THE  THREF  SNITCHED  NETWORKS 
UNDER  CONSIDERATION 

FILE  PRM0HT1  CONTAINS  THE  PRIMITIVE  CONNECTION  MATRIX  OF 
THE  FIR  ST  SWITCHED  NETWORK  AND  A TABLE  CF  SITE  NAMES  VS 
SITE  SERIAL  NOS  IN  "’HE  NETWORK 
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F II.  ° PSM0UT2  CONTAINS  INFORMATION  IDENTICAL  AS  IN  FILE 
P t» n C T1 1*  1 EilT  FOP  SECOND  SWITCHED  NETWORK 

f':Lc  PE  NO  II T 3 CONTAINS  INFORMATION  IDENTICAL  AS  IN  FILE 
FUBOUn  PUT  FOF  THIRD  SWITCHFD  NETWORK  */ 

TlNCL'IDE  IXTDCL ; 

DCL  (NUU.NUD,  NHL,  LINKS)  PIN  FIXED(15,.  ), 

(I  , J,  K,  l , II,  III  , I'L,  NULK,  XUSI,  RFLAG)  PIN  FIXED(15,(), 

SPRW  CHAR  (1)  INIT  (• C* ) , 

(SFF  VAl  ,SEPV  A2.SEEVC)  BIT  (8)  IN  IT  ( • rrT.  D • b ) EXT; 

LCL  CKT  CHAT  (9)  , 

LKCKT  CHAR  (6  ’5)  VAR, 

SICK?  CHAR  (911)  V AP, 

SIR  IES  CHAR (6  8)  VAR ; 

DCL  YY  CH  IF  (3  ) ; 

rci  N 7TW  1 (1  cr  , IS  :• ) CHAR  (2)  I NT  T ( (22  5v.  .)  (1)  'CO ’)  , 

( NET  W 2 ( “"  , 5')  , NETW3  (5v,  c’’)  ) CHAR  (2)  IN  IT  ( (25 1C  ) (1 ) *'10  » ) , 

V*  P Y T (15  ) CHAR  (3)  I NIT  ( ( 1 r>  ) ( 1)  • ■'  " ')  , 

(■:ARY2(  c ) ,NA:-.Y3  (5' ) ) CHAR  (3)  INIT  ( (50)  (1)  •"'50  •)  ; 

DCL  (STTE1  (15  ) ,ST?F11  (IS”))  CHAR(8)  IN  IT  ( ( 1 5 : ) ( 1 ) • 'iCCrr-O"  '*•  ) , 
(SIT®.?  (c  '■)  , SITP  22  (5  ) ,SITF3  (5')  ,SITE33(51)  ) CHAR(8) 

INIT  ( (5  ■)  (1  ) •P.10PCU0C  • ) , 
LTNi<NT(4  ) CHAR  ( 5 ) INIT  ( (4<'  ')  (1)  » ' }(!')''  •)  , 

Til  ? 2 CHAF  (2)  IN  IT  ( * ' O' ) , 

(LI  VKCO  (4  ) , LI  NKCOS  (4‘  ' ) ) CHAP  (2)  IN  IT  ( (4r  ')  (1 ) • C )'  ) ; 

/*  MAX  4C'  LINKS  ALLOWED  IN 
ADO VL  TWO  ARFAYS  */ 

DCL  (STTENMI  (4  '•  ),SITENMS(4’  ))  CHAR(3)  IN  I T ( ( 4 '*'')  ( 1)  • 5,'r"'TDD0  ' ) 
TMP.3  CHAR  (8)  INIT  (•  " t D(  Oov  •)  » 

SITESNI  (4  ) CHAR  (3)  IN  IT  ( (4  ) ( 1 ) • ' O'."  ) ; 

/*  MAX  4V"  SITES  ALLOWED  IN 

ABOVE  TWO  ARRAYS  */ 

/*  */ 

/*  OPEN  TOTAL  FILES  FOR  READ  ONLY  ACCESS  */ 

/*  V 

FUNCT=Q!)SST; 

TASKID= ‘TRIMS • ; 
tPMO C = • PE3TM’  ; 

CALL  DHIC  (5  , ; 

/*  */ 

/*  il INPUT  INF0F  MATICN  ABOUT  THE 
THREE  SWITCHED  NETWORK?  */ 

/*  */ 

fi  IT  FILE (PFIMIN)  LTST(J,K,L)  COPY  (PRM011T)  ; 


/■»  HE  JIN  BLOCK  WITHIN  PROCEDURE  PRIM  */ 


sc  R ? r .7 kt.  por  TYSturaiN: 


s / 


DCL  TY  1 (J)  CHAR  (3)  , 

TY2  (K)  CHAR  (3), 

TY  3(L)  CHAP  ( 3)  ; 

GET  FI  LE  ( F RI  MI  N)  ECIT((TY1(I) 


GET  FILE(PRIMIN)  EDT  1 ( (T  Y2  (I ) 

(COL  (1) 

GFT  FILE  (P E IM  IN  ) EDIT((TY3(I) 

(COL  ( 1) 

GFT  FILF  (PFIMIN ) EDI T ( SEP  VA 1 ) 
G^T  F IL17  (FRIMIN)  EDIT  (S  F RV  A2) 


/*  v 

FUNCT=OPENM ; 

ST  A I U5  = CK  ; 

T FI  LEG  (1  ) = • R MCT  1 
T FILES  ( 2)  = ’ PM TH  ’ 

TFILES  (3  ) = • HULK  • 

T FILES  (U)  = • RM  SI* 

TFI  LFS  ( 5)  = • FVCT  ' 

TFILES  (6  ) = • PVTL' 

CALL  PB  10  (<4,  1)  ; 

IF  (STATOS-.=  CK)  THEN  GO  TO  EXIT; 
/*  */ 

/*  RESET  CT  ECU  IT -MAST  EE  FILE 

/*  V 

FUNCT=  RFSTM  ; 

CALL  DBIO  (2,  ')  ; 

/*  */ 

/*  INITIALISATION  */ 

/*  */ 

IT,  i n='; 


DO  1=  1 TO  J)  ) 

(COL  ( 1)  , ( J)  A ( 3)  ) COPY  (P  RMO  UT) 
DC  1 = 1 TC  K)  ) 

, (K)  A(  3)  ) COPY  (PRMO(JT) 
DO  1=1  TO  L)) 

, ( L)  A ( 3)  ) COPY  (PRMOUT) 
(CC  I ( 1)  ,B(8)  ) 

COPY  (PRMCUT) ; 
(COL(1)  ,3(8)) 

CCFY  (FRMCUT)  ; 


V 


NIHI , NHD,  M'JL  = ' ; 

DO  1=1  TC  15*; 

NFTW1  (I,  I)  =•  01*  ; 

IF  (I  <=5  ''  THEN  NETW2  (I,  I)  , NFTW  3 (I,  I)  =•  01  • ; 

END; 

/*  */ 

/*  SERIAL  REAP  OF  CIRCUIT  RASTER  FILE  TO  DETERMINE 
ALL  CIRCUITS  WITHIN  IT  */ 

/*  V 

ST  ATUS=OK  ; 


CN  T L : DO  WHIL3(STATl)S-»  = FNDP)  ; 
FIINCr=SEgRM; 

STAT’JS=OK ; 

FI  L 1 1 D= • KMCT • ; 

ELMT.  IST  = * FMCTC1HLFND.  • ; 
CALI  DBIC  (6 ,1)  ; 
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IF  (3?  AT  US  -i=  OK ) THEN  GC  TO  LEXIT; 

CK  T = IO  AR  E A ; 

/*  V 

/*  SET  FLAG  TO  1 OR  2 C5  3 TO  DETECT  IF  THE  CIRCUIT 

BELONGS  TO  ANY  ONE  OF  THE  THREE  SWITCHED  NETWORKS  */ 

/*  V 

YY  = SUBST.R (CKT, 2,3)  ; 

I F L= ' ; 

DO  1=1  TO  J ; 

IF  ( YY=TY1  (I)  ) THEN 
DO; 

I FL= 1 ; 

GO  TO  FL  A G_I  S_  SE  T ; 

END  ; 

ELSE; 

END; 

DO  1=1  TO  K ; 

IF  ( YY=T  Y2  (I)  ) THEN 
DO; 

IFL=  2 ; 

GO  TO  FLAG_IS_SET; 

END  ; 

ELSE; 

END  ; 

DO  1=1  TO  L; 

IF  <YY=TY3(I))  THEN 
DO; 

I FL=  3 ; 

GO  TO  FLAG_IS_SET; 

END; 

ELSE; 

END; 

FL  AG_IS_SET:  ; 

IF  ( I F L=  1 | IEL=2|  IFL=3)  THEN 

/*  V 

/*  CIRCUIT  ANALYSER  IS  NEEDED  TO  TRACE  THE  PATH  OF 
THE  CIRCUIT  THAT  BFLONGS  TO  ONE  OF  THE  SPECIFIED 
SWITCHED  NETWORKS  */ 

/*  V 

DO; 

CALL  DEC A (C KT ,LKCKT , SIC K 1 , SE HI ES , RFL AG) ; 


IF  ( RFL  AG  = 1)  THEN  GC  TO  OMIT;  /*  OBIT  CIRCUIT  FOR 

FILE  ERROR  */ 

SER  V X = SUB  STR  (SERIES  ,1  D ,1  ) ; 

SE3VC=UNS  PEC  (S  ERV X)  ; 

PUT  SKIP  FILE  (PRMOUT)  LIST  ( • SER  VC=  » ,SER  VC)  ; 

II=LENGTH (SERIES)  -1U; 

L INKS  = B IN  (II/6 , 15, ' ) ; 

/*  V 

/*  FILL  IN  F HI  MIT  IV  E CONNECTION  MATRICES 


' 

I 
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I F ( I FL=  1 ) THEN  CALL  N E A (LI NK3, SEE IES , N WO, N AH Y 1 , NET W 1)  ; 


IF  (IFL=2)  THEN  CALL  N E A (L I NK S, S ER I ES , N UL , N AH Y 2 , NE T W2)  ; 
IF  (IFL=  3)  THEN  CALL  N E A (L INKS , S EH IES , N UD, N AR Y 3 , N E T W3)  ; 


J 


J 


t 


I 


END; 

ELSE  ; 

Ofl IT: ; 

END  CNTL; 


LEXI T : ; 


/*  END  OF  BEGIN  RLUCK  WITHIN  PROCEDURE  PRIH  */ 


FND  SCCFE_JKL_EOR_TYS; 

/*  V 

/*  PRINT  PRIMITIVE  CONNECTION  FAT  RICES  CF 
THFE*  SWITCHED  NETWORKS  */ 

/*  V 

FIT  FILE(PKMOUT 1)  EDIT  (MW)  (COL  (1  ),  F (3 
DO  1=1  TO  NOD; 

PDT  FILE (PRMOUT1 ) EDI  T ( (NET  W1  (I  , J ) DO  0=1  TO  NtllJ ) ) 
(COL  ( 1)  / (NIKI)  A (2))  ; 

END; 

FHT  FILE ( PRM0HT2)  I LIT  (NHL)  (COL  (1  ) , F (3  , D ) ) ; 

DO  1=1  TO  NHL; 

POT  FILE (PRM0UT2)  EDIT  ( (NETW2  (I ,0)  DC  J=1  TO  NHL)) 
(COL  ( 1)  , (NUL)  A ( 2)  ) ; 

END;  , 

FDT  FI LE  ( PR NOUT 3)  EDIT  (NOE)  (COL  (1  ) , F (3  , " ) ) ; 

DO  1=1  TO  NOD; 

PUT  PILE  (PRM0UT3)  EDI  T < (NET  W3  (I  , J ) DO  J=  1 TC  NU  D) ) 
(COL  ( 1)  , (NUD)  A (2)  ) ; 

END; 

/*  */ 

/*  CORRELATE  SITE  NAMES  WITH  SITE  SERIAL  *S  */ 

/*  IN  MASTER  FILE  */ 

/*  V 


CALL  COFELTSI  (NUSI)  ; 

/*  ♦/ 


/*  CORRELATE  LINK  NAMES  WITH  LINK  CODES  */ 

/*  IN  MASTER  EIL17  */ 

/*  */ 

CA  Lt  C C RE  LT  L K ( Nl’  LK  ) ; 

/*  */ 

/*  FEINT  SITS  NAMES  VS  S IT  F SERIAL  NOS.  AND 

LINK  CODES  VS  LINK  NAMES  '"ABLFS 
AFTER  SORTINGS  */ 

/*  */ 

P’JT  PAGE  EIL51  (PFMOUT)  ; 

F’JT  S KI P (2 ) FILE  (FRMOUT)  ; 

PUT  SKIP  FILE (PE  MOCT) 

EDI™ ( *S IT E NAME --SITF  SERIAL  NO') 

(COL  (*'  ) , A (2S)  ) ; 

PIT  SKIP ( 1 ) FILE  (PRMOUT)  ; 

CALL  SORT  (NUS  I,S  IT  F.NMT,  S ITENMS,  TMP8) ; 

DC  1=1  TC  N"S  I ; 

DO  J = 1 10  N USX ; 

IF  (S  IT  EN  MS  ( I)  = S IT  ENM  I (J  ) ) THEN 
PUT  FILE (PR MO UT)  EDIT (SITE NMS (I)  , 
SITESNI  (.1)  ) (COL  (U  1 ) , A (8)  ,X  (8  ) , A (3)  ) ; 
END; 

END; 

IMT  PAGE  FILE (FRMOUT)  ; 

PUT  S KI P (2 ) FILE  (PRMOUT)  ; 

PUT  SKir  FILE  (PI  MOOT) 

EDI™  ('LINK  COD E --L INK  NAME') 

(COL  <<n),A  (21')  ) ; 

F UT  SKIF( 1)  FILE (PFMCUT)  ; 

CAIL  SORT  (Nil  LK,  LINK  CO,  1. 1 NK  COS , TM  P 2 ) ; 

PC  1=1  TC  NULK; 

DO  .1  = 1 TO  NULK; 

IF  (LINKCOS  (I)=LINKCO  (J)  ) THEN 
PUT  FIL*--  (PRMOUT)  EDIT  ( LT  N KCOS  ( I)  , 
LTNKNM(J)  ) (COL  (4  3 ) , A (2  ) , X |H ) , A (5  ) ) ; 
FNP; 

END  ; 


/*  CORRELATE  SITE  NAMES  WITH  S IT F SERIAL  *S  IN 
THE  THREE  SWITCHED  NFTWCRKS  */ 

/*  V 

CALL  CCRFLTSIM  (NUU,  NARY  1,  SITE  1)  ; 


CALL  CCFFLTSIM  (NUL,  NAF.Y  2,  SITE2)  ; 

C\LL  COKFLISIM  (MUD  , N A?  Y 3 , SI  TE  3)  ; 

/*  */ 

/*  F.UNT  SIT  2 NAM  ES  VS  S IT  F SERIAL  #S  IN  THE 
THREF  SWITCHED  NETWORKS  */ 

/*  */ 

D 1 1=1  TO  NU'J; 

I’lT  FTLS(PRMOIITI)  EC  IT  (S IT c 1 (I ) , N AS Y 1 (I)  ) 

(COL  (S)  , A (8)  , X ( 2)  ,A<3)  ) ; 

r NO  ; 

0)  1=1  10  NHL; 

PUT  FILE  (FRM0UT2)  F D IT  (S IT F 2 (I ) , N AR Y 2 (I)  ) 

(COL  (S)  , A (8)  ,X  (2)  ,A  (3)  ) ; 

E.NO; 

01  1=1  TO  NUO; 

I UT  FILE ( PRMOUT  3)  EDIT  (SITE3  (T),N  ARY3  (I)  ) 

(COL  (S)  ,.\  (3)  , X (2)  ,A  (3)  ) ; 

FND; 

/*  V 

/*  CR  FATE  ALOHA  NUMERIC  ALL  Y SCRTE1  ARRAYS  CF  SITE  NAMES 
IN  THE  THREE  SWITCHED  NETWORKS  */ 

/*  */ 

CALL  SORT (N CM , SI TF 1 , SI TF 1 1 , 1 F P8 ) ; 

CALL  SCRT (NHL, SITH2, SITF22,THPB) ; 

CALL  S C S'"  (NII0,SITE3,SITF33,TMP8)  ; 

/*  v 

/*  PRINT  NEXT  N 3IGHD0D?  * NFCR M ATI C N CONTAINED  IN 
TIE  THREE  P DIM  I"  IV  E CONNECTION  MATRICES  */ 

/*  */ 

nr'  PAGE  FILE  (P3H0UT)  ; 

I IT  SKIP  (3)  FIL"  (PRMCUT)  ; 

"’ll  SKIP  FIL^(FrMOUT)  EDIT  ( • A HTC  VC  N*  ) (CC I (L  7 ) , A (V  ) ) 
ENT  SKID  (2 ) FILF (PI MCNT)  ; 

I.  Pa  NT  (VNC  , NIT  W 1 ,STTF  1,SITh  1 1,  NARY  1)  ; 

PIT  PAGE  FITS  ( ?F  MO  I T)  ; 

PMT  S K I P ( 1 ) FILF  (FFMON'*)  ; 

PUT  S T r FILE  (FPKOUT)  ETTT  ( • ANTODIN  •)  ( COL  ( 0 7)  , A ( 7)  ) 

PIT  SKIN  (2)  r ILF  (PEMOUT)  ; 

L FT  N"  ( NHL,  N:rW2,  SITE2,  S1TE22  ,NARY2)  ; 

TNI  SKIP  (1)  ETI.E  (PRMCUT)  ; 

PNI  PAG5'  FILS  (?t>  MOOT)  ; 

PHI  SKIP  FT  1 1 ( PF  M01IT ) EtlT  ('  AUTOSECOCOM  • ) 
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(COL  (45)  , A(  1 1)  ) ; 

PUT  SK  IP  ( 2)  FILE (PF MOUT)  ; 

CALL  FRNT(Nnn,NETW3,SIlE3,STTF33,  NAP73)  ; 


/******************«< 
/*  BEGIN  INTERNAL 
/*****■******* 


PhCCEDURES  OF 


prcc  ec  (i  p I 

* 


.****»/ 

P3IK  */ 


/*  PRCC8EURE  CCRELTSI  */ 

COE PLISI : P BCC  (NS I?  E ) ; 


DCL 

NSITE  BIN  F 

IXBD  (15,  •)  ; 

DC  L 

1 M AST_S IT  E 

9 

2 K SIC  TF  L 

C H A R ( 1 1 ) , 

2 MSI  MU  MB 

CHAR  (3)  ; 

OCL 

MASTER  SITE 

CHAR  (14)  Dt’E 

/*  RESET  SITE  WASTER  FI L^  */ 

FUHCr=3Fsr M; 

CALL  C El 0 (3,  ) ; 

/*  SERIAL  READ  OF  CIFCUT'"  MASTER  FILE  TO  PULL 
OUT  SITE  NAMES  AND  CORRESPONDING  SITE  #S  +/ 

3TATUS=CK; 

N SITE  = ’ ; 

SIT  E_  BEAD:  TO  WHILE  (ST  ATUS->=  EN  CP  ) ; 

FUNC7=SEQRM; 

STAT11S=0K; 

FTLEIP  = * E MSI  ’ ; 

E L M L 1ST  ® ' RMS  ICTPLRMS INUM  BEN  B . ' ; 

CALL  DB IC  (5,1)  ; 

IF  (S7  ATUS-=OK)  THEN  GO  TO  EXIT1; 
HASTE 3_PITE= 10  ARE  A ; 

N 51 7E  =N SITE  + 1 ; 

5 IT  F N M I (NS  IT  F)  -SUESTR  (MSICTRL,  1,8); 
SITE  SNI  (NSXTF) = MSI  NO  KB; 

END  S IT  I._  R E A C ; 

EXIT  1: ; 

END  CCFELTSI ; 


i 


/*  PROCEDURE  C03EITLK  */ 
COHSLTLK :PRCC(NLINK) ; 
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' 

I 

ii 


DC L NLINK  BIN  FIXED  (IS,  ); 

DCL  1 NA3T_LTNK, 

2 MLKCT  EL  Cl!  AR  (5)  , 

2 MLKCODE  CHAR  (2)  ; 

'CL  *1  AST  EK_LT  NK  CHAH(7)  DEF  M AST_L  INK  ; 

/*  RESET  LINK  FASTER  FILE  */ 

PUNCT=R  KS  T’l ; 

CALL  D3IO  ( 3 , ; 

/*  SERIAL  FEAC  OF  LINK  “ASTER  FILE  TO  Ptl  LI  OHT 
LINK  NAMES  COR L ES EON DI N G TO  LINK  CODES  */ 

STA  T 11  S=OK  ; 

Nil NK  = " ; 

L INK_READ:  DO  WHILE  ( IO  A T IJS-*  = " N D p)  ; 

FU  NC7  = S Fv-FM  ; 

STA  T US=0  K ; 

F I L F I D= • KMLK  ' ; 

ELM  LI  ST='Ri1I  KC-TR  I E ML  KCCC  EE  ND.  ' ; 
CALL  DBIC  (t  , 1)  ; 

IF"  (STA  TL'S-  = CK)  THEN  SC  TC  Ev  IT2 ; 
M ASTER_I.TNK  = TCAREA; 

NLI  NK=  NI.INK  + 1 ; 

LIN  K NN (NIT  NK)  - M I KC  T 3 1 ; 
LINKCC(NLINF')  =MLKCOCE; 

END  LI N K_RE  AD ; 

EXIT2  : ; 

END  COREL  T LK ; 


/*  PROCEDURE  COREL  TSIM  * / 


COESLTSIM  :PROC  (Nil,  TNAR  Y,TSIT::>  ; 

DC L Nil  3 I N FIX  Et"  (1  S,  ) , 

'’’NARY  (*  ) C H A F ( 3 ) , T SI  T E ( + ) CH  AR  ( 8)  ; 
DO  1=1  TO  NU; 

DC  J=  1 TC  NUSI; 

IF  (TNARY  (I)  =SI1ESNI  (.1)  ) THEN 
DC; 

T SITE  (I)  =SI  T"  N MI  (.1)  ; 

SC  TO  EXT L ' ; 

END  ; 

ELSE; 

END; 


FND; 

FND  COREL! SIM; 
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/*  r RO  C E D U P C PENT  */ 


:PROC  (NT  NODE,'7’  NET,T  SITE,  TT  SITE,  T NARY)  ; 
rcr  ILK  BIN  FIXE"  ( 1 B , r)  , 

(I  NP  XT  (15')  , I N DXO  ( 1 5"  ) , I NPX  L (15  ) ) BIN  FIXED(15,C) 

I NIT  ( ( 1 5-)  » , 

XT  "!  F CH  AR  (2)  ; 

PCL  NENODE  RIN  F IX  ED  ( 1 S , ’ ) , 

7N  2T  ( *,  *)  CHAP  (2)  , (TSITE  (*)  ,TTSITE  <*)  ) CHAF(R), 

TNARY  (*)  CHAR  (3)  ; 

EU  1=1  ID  N-NODE; 

DC  J=1  TC  NENODL; 

IF  (TTSITE (I) =TSITE (J) ) IMF  N 
DC  ; 

TNDXO  (I) =J; 

GC  TC  EXT  L - ; 

2ND; 

EL  S E ; 

END; 

EX  TL  : ; 

L'ND; 

SKIP  (2)  F ILE  (PR^OUT)  ; 

SKTF  FILE  (PFMOI1T)  LIST(TSITL); 

SKIP  TILE  (PRHOnT)  LIST  (TTSTTE)  ; 

SKIP  FILE  (PRMO  UT)  LIST  (TNARY)  ; 

SKI  F (2  ) FILE (FRMCHT) ; 

DO  L= 1 TO  NFNODE; 

I L K=  ' ; 

1=  TNDXO  (L  ) ; 

PC  J= 1 mC  NENCDE; 

IF  ( (T  NET  (I  , J)  = • ‘ • ) | (T  NET  (1,0)  = • "*  1 •)  ) THEN  GO  ^0  EXTL1; 

XTH  P = TNFT ( I , J ) ; 

I LK=I LK+  1 ; 

IN  OX  S (ILK)  =J  ; 

PC  K= 1 TC  NULK; 

1 17  (XTMP  = L I N KCO  (K ) ) THEN 
DO; 

IN  DXL  (ILK)  =K; 

GC  TO  EXT L 1 ; 

END; 

ELSF; 

EN  P; 

E X" L 1 ; ; 

FN  0; 

II  = INPXL(1)  ; 

ITI  = INDXS  (1  ) ; 

PII 1’  SKIP  FILE  (PF  MOIIT) 

EDIT  (TSITE  (I)  , • (•  ,T  N ARY  ( I)  , •)  : • , L INK  NM  ( 1 1)  , • ( • ,LINKCO  (II) 
j'J-^TSITPtlll)  , ' ( » ,T  NARY  (III)  ,')  ') 

(C  JL(J1)  , A (8)  , A ( 1 ) , A (3)  , A (2)  , A (S  ) , A (1)  , A (2)  , A (2)  , A (8)  , 

Ml  ) f a (3)  ( \ (1)  ) ; 


PC  K=2  TO  ILK; 

II=T NOXL  (K)  ; 

1 1 1 = IN  DX  F (K)  ; 

PJT  OK  IF  *■:  lv  ( PS  MOOT) 

E D IT  (L  I N K N M (II)  , ' ( ' ,IINKCC(JI)  , ')  - ' , TSITE  (III)  , 

’ ( ’ , TN  AR  Y (III)  , ')  ’) 

(C  OL  (45  ) , ft  (5  ) , A ( 1 ) , A (2)  , A { 2)  , A ( 9)  , A ( 1)  , A ( 3)  , A ( 1)  ) 

ENO; 


PUT  SKIP 

FI LE  (PR1CHT)  ; 

IN  D; 

END 

PR  NT ; 

/* 

PROCEDDKE  5 CR’ 

SORT:  FFCC(  N,  >IN,  XOOT  ,TMP)  ; 

DCL  (X  IN  (*  ) , XOUT  (*  ) r?MP)  CHAT  ( * ) , 
(M.N.I.J)  BIN  FIXFD  (IS/)  ; 

PC  1=1  TO  N; 

XOt'T  ( I)  = X IN  (I)  ; 

K N D ; 

/*  */ 

/*  *1001  FI  E C SHELL  OOP"  LOGIC  V 

/"■  V 

n=  i ; 

PI:  CO  1=1  TO  N UTILE  (M<N)  ; 
i*=  x+  *! ; 


IN  D SI; 
t\- 1*1-1  ; 

SACK : ; 

1-M/2  ; 

3 2:00  0 = 1 TO  N'-M; 

T M P=  X OUT  (0  + M)  ; 

S3  : PO  T=J  TO  1 BY  -1*1 ; 

IF  (XOril(I)  <=TEP)  THEN  GC  TO  NF  XT; 
XCHT  (I4-M)=XC1IT  (I)  ; 

FN  0 S 1 ; 

NIX'7 

XO  II T ( I M)  = I.TP  ; 

END  52; 

IF  (:1  > 1 ) TIPN  GO  TO  BACK; 

E NO  SOFT; 


A * :}c  + + * * * * j 

/*  c\‘  D IN  TEE  N A I.  PFOCEIUEFS  OF  PROCEDURE  FhIM  */ 

/A  ( 


s 7 


/+  V 

/*  CLOSE  PILES  V 

/*  V 

CLCSF  FILF ( PRI KIN)  ; 

CLOSE  FILE  (PRMOUT)  ; 

CLOSE  FILS(ERMCUTl)  ; 

CLOSE  FILE  (PR  MOOT  2)  ; 

CLOSE  FILE  (PRMOUT3)  ; 

F'JNCT=CLCSM  ; 

3TA1US=0K; 

CALL  DETO(tt  , ■)  ; 

/*  */ 

/*  SION  OFF  IHE  TASK  */ 
/*  */ 

FtJNCT  = D3Q  UE  ; 

T AS KI D= ' PRI  MS  ' ; 

CALL  DBIO(4,0); 

E NO  FHIM; 


♦PFOCFSS  ; 


/******* 
/*  BEGIN 
/ * $**•.**>  * 


/*  CIS  CHIT  ANALYSE!  PROGRAM  */ 

/*  */ 

/*  THIS  PROCEDURE,  UPON  GATHERING  INFORMATION  AECtIT  A GIVEN 
CIRCUIT  FROM  THE  FILF,  DETERMINES  THF  LINK  (S ) AND  SITES 
(ALONG  WITH  THEIR  I N/OtIT  FLAGS)  WHICH  CONSTITUTE  IT  */ 

/*  */ 

/*  INPUTS-  (FILE) , CKT  */ 

/*  (FILE):  THIS  FFFERS  T C AIL  USEE  PFFINFC  TOTAL 

FIL^S  INCLUDING; 

MAST  Ei-  FILES:  DM  CT,  SM  TF  , RM  LK  , F M SI 
AND 

VARIALLF  FILES:  P.VCT,RVTL 
CKT:  CIRCUIT  CCSn#  (0  CHARACTERS)  V 

/*  CIJTFUTS-  IKCKT/SICK1, SERIES, FFIAG  */ 

/*  LKCK":  A STRING  OF  CHARACTERS  CONTAINING  CCSD# 

AND  CIRCUIT  IN/OUT  FLAG  ( F)  AS  HEADER 
FOLLOViFD  BY  THF  FARES  CF  THE  LINKS 
TRAVERSED  ALONG  WITH  THEIR  IN/OUT  FLAGS 
AND  A SPFCIAL  CHARACTER,  3.  AS  TRAILER 
( 6 c CHARACTERS  EOF  MAXIMUM  ALLOWED 
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99  LINKS  ON  TUP  CIRCUIT  PATH  ) 


EXAMPLE: 

CCS  n#  FLINK1  H INK2F LINK99p,fi 

SICKT:  A ST  PINO  Of  CHARACTERS  CONTAINING  CCSD# 

AND  CIRC  LIT  IN/OUT  FLAG  (f)  AS  HEADER 
FOLLOW  ED  LY  THE  N AM  FS  OF  LU'1'  SITES 
TRA  VSR  SEP  ALONG  WITH  THEIR  IN/OUT  FLAGS 
ANP  A SPECIAL  CHARACTER,  J AS  TRAILER 
( «11  CHARACIERS  FOR  MAXIMUM  AI.LCWFD 
K ’ SITES  ON  THE  CIRCPIT  PATH  ) 

EXAM  PL": 

CCSD*  FSITF1FSITE2F S ITE  V''  Fa 

SERIFS:  A STRING  OF  CHARACTERS  CONTAINING  CCSD* 

AND  CIRCPIT  IN/CUT  FLAG  (F)  AS  HEATER 
FOLLOWED  FY  THE  SITE  SERIAL  *S  OF  THE  SITES 
, Tlir  LINK  CODES  AND  THE  IN/CPT  FLAGS  Of 
THr  LINKS  TRAVERSE  I AND  A SPECIAL 
CHARACTER,  d AS  TRAILER  ( 6 '8  CHARACTERS 
FOR  MAXIMUM  ALLOWED  99  LINKS  AND  I'D 
SITES  ) 


EX  AMPLE: 


C C S D # F S I ? F N 0 1 L I N KC  0 D E 1 F L I N K C n D F 9 9 F S I T F N 0 V'  0 a 


RF'LAG : A FLAG  (DIN  FI  XED  ( 1 r>  ) WHICH  I?  SET  TO 
1 FROM  ITS  INITIAL  V ALU  F ' FOR  FILE  ERROR 

*/ 


/***  NOIFF  *+*/ 

/*  AN  EXIT  IS  TAKEN  OUT  OF  THE  PROOF  DU  R E WITHOUT' 
ERROR  .MFS3AGES  FOR  TOTAL  PFTURNED  STATUS-.=OK 

EXIT  IS  ALSO  TAKEN  OUT  OF  THE  PRCCEDOR”  WITH 
ERROR  "ESS  AGES  FOR  ANY  ONE  Of  T Hc  FOLLOWING: 

1.  IF  THP  ’’’RflNK  SEGMENT  END  SITES,  AS  GIVEN 
IN  VARIABLE  F I L E , R VC  T , ARE  ACT  FOUND  IN 
VARIABLE  FILE,  RVTL  ( THIS  COULD  PE  CAUSED 
BY  IMPROPER  ORDER  Of  LINKS  IN  1-  VTL  ) 

2.  IF  THE  TRUNK  SEGMENT  FNT  SITES  ASF  THE  SAM" 


5.  I"  CCNTRCL  K F!  Y FOP  F 1 1 H F K THL'  SITE  OR  T II  F 
L T N K ON  Til'’  CIRCUIT  PATH  IS  IN  FUROR  */ 

*************  ******* w************************************/ 


r Ft  A : PRO  C (OK  T , I.KCK  1 , SICK  I ,S  FT  IKS  ,Rrl  AO)  ; 

/**********************♦*****♦***  + **>»*+/ 

/*  r.TOCETU  PR  CALLER  L:Y  PFPCFPURF  CFCA  */ 

/♦♦A***********************************/ 


/ + INTERNAL  FRCCiniRE  *■/ 


/*  DCL  FIN1'  ’NTRY  (CH  AR  (H  ) , CHAR  (5)  ) ; V 
/+  rn.  FI.  AOS  ENTRY  tCilAil  (1)  , CHAR  (S)  ) ; ♦/ 


/*  UFCI.  AT  AT  TON  S FOR  THE  FI  IT'  AM)  TiiF 
TDFNPIF1ERS  of  FLOCFPUFF  r I C A ♦/ 


r»C  V FR  MCU?  CU  V PUT  FILL  ? L I NT 

1 IN  CL  U C I "XTCL; 

DC!  ( "’P  P FP  I.C  ( r’)  , TvI’TOLC  { r'  ) , 
(7  UPLINK  («*))  , IFULXX  IH'i)  ) 
PCL  CK  T CHAR  ( '>)  , 

LKCKT  CHA  ? ((O  S)  VAR, 
SICK':  CHAR  (Oil)  VAR  , 
STRIPS  CHAR  ( t ■ 8 ) VAR, 

OR  ( .'•)  CHAR  (U)  , 


(T 

, K , L , I T 

, J 

J,  K 

K,  IL,  ILL,  K 

( • 

PIT 

S ? X X , T X 

P s 

" XX 

, TMl’RF  , T K P 

(s 

F’  R 

,;•'<-)  c 

II  A 

R (9)  , 

L T 

K 

CHAR  O'  ) 

9 

I.X 

T 

Cl  AR  ( .’) 

9 

(F 

RF 

l/TOFL, 

LKFI ) 

CH 

A ! ( 1 ) , 

( r'H  FT.  S,  TO  F’L 

C 

/ 

L k :• 

LS) 

CHAR  (“' 

( F 

L V 

K , T M PS  ) 

c 

H AR 

(‘') 

9 

(8 

s*r,  ;sto) 

c 

1 A F 

(f) 

/ 

t 

SI 

TF  CHAK 

(S)  , 

( • 

R F 

;;  , SR  TO ) 

c 

i A ■; 

( 

9 

sr. 

CH  A”  ( • 

*, 

i 

T A 

s r_c ifc 

U T 

i , 

y 

HCT  t AO 

c 

;i  as 

(1) 

t 

m CT  !•  ” i.c 

c 

HAR 

(9) 

f 

> 

« , • f p v 

c 

M A P 

( ') 

9 

m ' : ioi.c 

c 

I A I 

(•>) 

9 

MCTTF AC 

c 

;l  A R 

( n 

J 

R : 1'  r A*  ; 

RPR  XX  (S  ))  C’H  A R (H  ) , 

CHAR  (>)  ; 

/*  KAX  '*9  LINKS  F,  W.  SITFS  ♦ 

OOf  R FL  AG)  PTN  FIXED  ( 1%  ')  , 

T ,TM’RS)  CH  A R (8)  , 


1 * i 


CCL  ft  ASTER_CIRCUI7  CHAR  (23)  CFFINFD  M AST  CIRCUIT; 

TCI,  1 VARI_CTS, 

2 VC’SCCNTBOL  CHAR  (7)  , 

2 VCTSSITE  CHAR  (11), 

2 VCTSSITT  CHAT  (8); 

DCL  V AR I A 3L  E_C  T S CHAT  (26)  PFFI NET  VAFI_CTS; 

DC  L 1 VAEI_TLS, 

2 VTLSLINK  CHAR  (5), 

2 V ILSSITE  CHAR  (11), 

2 V?  LSS ITT  CHAR  (8)  ; 

TCL  VAR  I AIL  F_TLS  CHAR  (24)  DFFINLD  VARI_ILS; 

DCL  1 ft AST_  LI NK  , 

2 ft  LKFLAG  CliA  R (1)  , 

2 MLfCCODE  CHAR  (2)  ; 

DCL  MA.STER_LINK  CHAR  (3)  DEF  1NFD  M AST_L  INK ; 

CCL  1 MAST  SITE, 

2 MS  I F I AR  CHAF  (1)  , 

2 MSINT1MB  CHAR  ( ■>)  ; 

DCL  MASTER_3ITF  CHAF<(4)  DEFINED  ft  AS  T_5  IT  F ; 


FF  LAG=D ; 


/*  INITIALISE  FILE  ERROR  FLAG  */ 


/*  */ 

/*  READ  A RECORD  CORRESPONDING  TC  THE  SFECIFI^D 
CIRCUIT  FRCM  T H F CIPCUIT  MASTER  FILE  */ 

/*  */ 

F UNCT=  RE  ADM ; 

STA?HS=OK; 

FI LEID=  ' RMC^  ' ; 

CONTROL=CKT; 

ELMLI3T=  ' RMCTFLAGRMCT  FRLCRMCT  FF  ACRIM  CTTOL  CRM  CTTF  ACEN  D.  ' ; 

CALL  DBIO  (7,1);  ^ 

IF  (STATUS-.  =OK)  THEN  GO  TC  EXIT; 

WASTE R_CIRCUIT=ICAREA; 

LKCKT,  SICKT,  SERIFS  = CKT|  ( MCTFLAG  ; /*  CCSP#  AND  I/C  FLAG  ADDED  */ 
/*  V 

/*  LINKAGE  PATH  TO  C I RC UI T- T RUN K-SI TF  VARJAFLE  FILF- 
TO  DETERMINE  ALL  TRUNKS  CONTAINING  THE 
CHOSEN  CIRC  LIT  */ 

/*  V 

RR  ( 1)  ='  LKCT'  ; 

FLGG=  ; 

7MPSFXX=T1PSTXX-  (°>)  ' ' ; 

/***  + DFGIN  LOOo  FOR  THE  CIRCUIT  *♦**/ 

CIRCTjDC  WHILE  ( RR  ( 1) -»  = EN  CP)  ; /*  LOOP  FOR  FINDING  ALL  TRUNKS 

IN  tkf  G1VFN  CIRCUIT  */ 

LL , LT,L  = •; 

DC  1-1  TO  r> ; 

TMPFRLC  (I)  , TMPTOLC  (I)  , IMPS  XX  (I)  = (8)  ' • ; 

IF  ( I < = 49 ) THEN  THPLINK  (I)  , TMFLXX  (I)  = (5)  • '; 
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h.n; 

TMPFF=T"PSFXX  ; 

TM  F ST  = TK P S T X X ; 

ErFFP=  FT  ( 1)  ; 

?TJNCT=R  EADV; 

STATU S=CK ; 

FIX.  EIU='  R VCT'  ; 

LKPATM=  ' SMC^LKCT  ' ; 

CONTROL  =CKT;  /*  SAKE  AS  BEFORE  */ 

ST  1 L.T  S?=  • RVCTRMTPPVCTRMS  IF.V  CTT  OLC  EN  D.  ' ; 

CAT.L  DBTO  (Q,  1 ) ; 

Tr-  (SCATUS-=CK)  THEN  GO  To  EXIT; 

VA? I ADLE_CTS= IOAFFA; 

TM PS^XX  =S’IBSTS  (VCTSSITE,1 ,8)  ; 

IMPSTXX= VCTSSITT  ; 

/*  */ 

/♦  SWITCH  THE  END  SITES  OF  THE  TRUNK 

SEGMENT  (IF  NEEDED)  */ 

/*  */ 

IF  (?LGG=  ' ) THEN 
DO  ; 

F IGG=  1 ; 

GO  TO  NO _C HECK; 

END; 

SLSF; 

IF  (TMPR?=THPSFXX)  THEN  GO  TC  CE  ANGE_EX  IT; 

IF  ( 1 '1 P R T = T M P S"'  X X ) THEN 
DO  ; 

TMPR3=T  MP5FXX; 

THP  SrXX=TMPSTXX ; 

TMPSTXX=TMPR8  ; 

GO  TO  CHAN  GE_S  XI T ; 

END ; 

FLSF; 

CH  A NGE_3XIT  :; 

NO_CH?.Ctf : ; 

IF  ( REF  SS=  E NDT)  THEN  GO  TO  DE8;  /*  ALL  TRUNKS  FINISHED  */ 
RL  (1  ) = R EF  SS  ; 

/*  */ 

/*  LINKAGE  PATH  TO  TRUNK-LINK-SITE  VARIABLE  FILE- 
IO  DETERMINE  THE  LINK(S)  IN  THE  CHOSEN  TRUNK 
Tf)  WHICH  THE  SPECIFIED  CIRCUIT  BELONGS 
AND  THE  SITES  TRAVERSED  */ 

/*  */ 

HP  (2)  =•  LK  TL • ; 


/♦***  BE  IIN  LOOP  pOS  A TRUNK  **♦*/ 

TRUNK ! DO  WHILE  (PR  ( 2)  -«  = EN  CD)  ; /*  LOOP  FOR  FI  NDI  NG  ATI  SITES  AND 

LINKS  IN  A GIVEN  TF UNK  */ 

SFFER=n~  (2)  ; 

F I NCT=  RE A 0 V ; 
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VT1.  ' ; 

LKFAT  I - ' R M'r  P L KT  l ' ; 

CON  TOl.  VCTSCONTROL; 

^IMLKJT-  ' RVII  MLN  .’VTLhMS  IFVTLTUlCFND.  ' ; 

CAT  L OB  10  (°,  1 ) ; 

TK  ( S 7 ATUS-»~  CK)  T H H N 00  TO  EXIT; 

V A'T  IABL  f IS-  TCAFKA; 

/*  * / 

/*  cT?rr;  arrays  or  from  ant  to  sites  and  links 
IN  1 1!  " C lio  •'  ’’N  TRUNK  V 

/♦  */ 

LL-T.L*  1; 

T MPFRLC  ( LL)  = SI!  3ST  K (VTLBS  IT,  1, 8)  ; 

?>■  r^OT.C  (T.L  ) - VTLSS ITT  ; 

TMPLTNK  (LL)  - VIL  SLINK  ; 

IF  (LT.>=2)  T-N 

P ) ; 

1*  ( (IMTRLC  (LL)=TMPFRLC  (LL- 1)  ) f. 

( mr^oLC  (Li.)  -TnrTo lc  (ll-  i ) ) ) th e a 

0 0; 

TIPFN'LC  (LL)  , T M TOLC  (LL ) = (8)  ’ ’ ; 

T MI  LINK  (LL)=  (r>)  • ' • ; 

LL  =LL-  1 ; 
r N P ; 

EL  ST  ; 

»;  p ■ 

"S"; 

r i ( rr ) = N "■  f t p ; 

I-n  TV 'INK; 

**a*  IN!1  LOT  FOE  A TM!N  K ’•***/ 


/♦  so;.  ” \ POVX  ARRAYS  TC  CFTEEMiNF  THE  LINKS  AND 
S T I F S IS  AVER  SEP  IN  1 H u CHCSEN  I FUNK  DY  THE 
O'VFN  CIRCUIT-  V 
/*  , * / 

D 0 • 

' » 

IT, JJ,KK,X='; 

LLL= l L ; 

/*  * / 

/♦  CREATE  AF.  AYS  OF  SITES  AND  LINKS  IN  Til?  TRUNK 

4 net!  ARF  COMMON  VO  DOTH  TH  2 CIRCUIT  ANT  THE  TRUNK  */ 
/*  ♦ / 

TFTIC  (ILL*  1 ) - T MPTOLC  (l  LL)  ; 

r : 1 : do  r - 1 to  lll*  1 ; 

(”  ML  VRLC  ( I ) -"'Ml  S TAX  ) "HEN  JU  = I; 

I u (TMDTLC  (!)  - IMDFTXX)  KK  = I; 

•'NT  ns); 

IF  ((U  ) I l K X - ) ) T HEN 

O 1 ! 
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R^L  Av.;  = 1 ; 

FIT  SKIF  FI  L F ( r1- "•'MIT  ) 

r D I T ( • * * ?KHOF  •*  p it  n K ' , VCTSCCNTliCi.,  ' CIRCUIT^ 
(COL  ( .’)  , A(  1r  ) , A (7),  U>)  A (9)  ) ; 

GO  10  p X I T ; 

END; 

'L  S r • 

IF  (GJ=KK)  I'M’  *, 

DO; 

RF  l AG  - 1 ; 

^ UG  SKIF  FIL'’ (rRflOl’T)  F D 1 T ( • * * F D R C R=  * , 

VCl'SCONT  FCL)  (COL  (2  ) , A (0 ) , A (7  ) ) ; 

GO  TO  DP7;  /*  NO  ATT  ACTION  ON  DEFAULT  */ 

n • 

*-  * # 

ELS"; 

IF  (KKXJ.7)  THEN 

/*  ♦/ 

/*  TRUNK  AND  C IRC  P T P ‘ f . , v ' . NTU’Al  */ 

/*  * / 

DO; 

:r=  i ; 

LLL=KK- J 0; 

C H2 : DO  I=JJ  7 0 KK; 

K =K  ♦ 1 ; 

"IfKXX  ( K)  -^mF^LCjl)  ; 

IF  (I  <K  K ) T!  1 ? N T M r I.  X X ( K)  =T  F F II  N K ( I)  ; 

FND  r il 2 ; 

00  TO  OKU; 

ENH; 

"LSD; 

T ( .7  J > K K ) THEN 

/*  «/ 

/*  TRMN*f  AND  CIRCUIT  DIRECTIONS  ARE  NOT  IDENTTCAL  */ 

/*  */ 

DO ; 


TT  = 2- 

LL  L =.7.7-  K K ; 

F E 3 : D o I=JJ  TO  KK  PY  -1; 

K =K  * 1 ; 

TMFSXK  (K)  "TMrFRLC  (I)  ; 

ip  (I<JJ)  THEN  TPPLXX  (K- 1)  =TFPLINK  ( I)  ; 

'"in  r E 7 ; 

GO  TO  DF4; 

END  ; 

. L i 

3 F 4 : ; 

!,ISITE=TMPSXX  (K)  ; /+  SAVE  FINAL  SI^F  */ 

/*  */ 

/*  F 2 A D RECORDS  IN  THE  ST?p  AND  li NK  * ASTER  FILES 
TO  DFTFPNINF  IN/OUT  FLAGS,  LINK  COPES  AND  SITE 


I 


PEr>:Pi  J-1  "*0  LLL; 

CALL  F IN  n (TMPSXX  (J)  ,TMPIvx(  0)  ) ; 
INI)  ORS; 

END; 

PE7:  ; 

END  CIRCT; 


/*♦**  rNI>  Lccr  FCR  ? H l CIRCUIT 
CEB: ; 


♦ ♦ ♦ * / 


/*  A^p  FINAL  SI  l1’  */ 

/*  */ 

FEN  CT  = R E A IN ; 

STATUS=CK ; 

F 1 L F I D = • RMSI'  ; 

CENT RCL=FISI?E ; 

IF  (CONTROL=  (8)  • ) THEN 

PC; 

B WL  AG  = 1 ; 

pn  ? SKIP  FIL  F ( ER  1CIIT) 

EMIT  ( ' * * ERROR  IN  FINAL  SITE  FOR  Cl  FCUI  T ' , CK  T) 

(COL  (I)  , A ( S 5 ) , A («)  ) ; 

GO  TC  EXIT; 

EN  P ; 

ELSE; 

51. M L 1ST  = • RMSIFLAGRMSINtiPlBFNP.  • ; 

CALL  PPIC  (7  , 1)  ; 

IF  (SrAlUS-.=OK)  THEN  GO  TO  MX  I"; 

MASTER  SIlE=TOARFA; 

SIC KT= SI CKT | | FTSITFI  | MSTFLAG;  /*  SITE  S I/O  FLAG  ADDED  */ 
S F.F  I?S  = SER  IFS  | | MSINUMB ; 

LKC  KT=  L KCKT | | • 3<  ; 

S ICK  T = S I CK  T | 1 ' f>  • ; 

SERI2S=SEBIES|  | ; 

PUT  SKIP  FILE  (PR  MO 'll)  L I S T ( SKR I ^ S)  ; 

/*  V 

/*  SORT  CIRCUIT  DATA  FCR  OUTPUT  FORMAT* 

NOTE:  TUTS  PORTION  OF  Hi  F C CD  E THAT 

FOLLOWS  FROM  HERF  TILL  DHF  BEGIN 
INTERNAL  PROCEDURE  CF  PROCEDURE 
L)FC  A CAN  L‘F  CM  ITT  E T.  IT  IS  THERE 

ONLY  ''OR  Hi  K DEBUGGING  AIT  IN  ANY 
FUTURE  TROUBLE  SC  THAT  A COMPLETE 
CIRCUIT  PATH  CAN  BE  IRAC^D  IN  T F F MS 
OF  LINKS  TRAVERSED  */ 

/*  */ 

II  = LENGTH ( LKCKT)  -1  1; 

7 I = P IN  (T  I/O , 1r*,  ')  ; 

DO  KK  = 1 TO  II: 


I = 11  + ('  * ( K K - 1 ) ; 

J=  11  + 9*  ( K K - 1 ) ; 

K = 1 1 ♦(>*  (KK-  1)  ; 

L - 1 4 ♦ 6 * ( K K - 1 ) ; 

T.  pE  = S[)L>STr  (LKCK T ,1,6)  ; 

SFR  = St!ESCF(SICKT, J, 9) ; 

LL? R=  CM 3ST T ILF K , 1 ,G ) ; 

LK  FL=SinSTF  ( L F " , F>  , 1 ) ; 

CM.:.  VL  AGS  ( LKFL , LKEL'3)  ; 

SSF  R=S1)33T  F (SPR,  1,9); 

?F?L=sn SSI's  (s?n,9 , i) ; 

CM.1  FLAGS  (FSPL,FHFL3)  ; 

SF  FT  = SU3 ST K ( SSR  IRS,K  , 3)  ; 

LXT=SMBSmF  (S  SPIES  ,1,2)  ; 
j = 1 1 *n*KK ; 

K = 1 1 + tj  ♦ 1 K ; 

ST0  = SilB3TR  (SICKrT,»J,9)  ; 

SSTG=SinSTP(STC,  1,9); 

I0FL=SU5S1P  (S  T 0 , 9 , 1 ) ; 

CALL  FLAGS (TOFL, 70FL9) ; 

SSTOsSllSSiP  (SCR  irS,K,  1)  ; 

S L S S = S S P n | I • (»  I I S NFS  | I ')  ' | | F E FL  5 | | • — ' | |LL  FH  | | ' ('  ( |LXT|  | » ) 
| | LK  rT.  S | | ' - ' | | SS  10  | | • ( ' | | S RTC  ) | ' ) ' | | TCFL  c ; 

V<  . 

* L * 


/*  BFi»IN  I^TEKNAL  PVOC^DUEES  OF  F30CEDURE  DECA  */ 


FT  N E : ?ROC (FISITl, FI LINK)  ; 

OCL  FISITL  CHAR  (8)  , FILINK  CHA3(5); 

F'NCT=F  F A PM  ; 

STATU  3=  CK ; 

FILm  = *T.1SI'  ; 

CCNTRCl=FISTT2; 

IF  (C.1NTF0L=  (G)  » • ) THEN 

I>C; 

R ?L  A G = 1 ; 

r 'IT  SKIP  PT  L Z ( P 1 PKiilT ) EC  IT  (•  •**  ERROR  TK  UNK  = ' , 
VC T SCON  TROT.)  (COL  (2)  , A ( 19)  , A ( 7)  ) ; 

G 1 T^  EXIT; 

RA’P; 

FL  S r ; 

EL'IL:  ST-'  RUSIEL  AGRHS  I Nil  vOLNr.  ' ; 
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CALL  Tn  : (’  (7,  1)  ; 

17  (.■sr.UII.'iisOt)  TilKN  GO  TO  EXIT; 

"ASTER  3ITE=IOARE  A; 

SICK T = ? ICK  T | | p I ST  IF | | 8 SI F LAG  ; /*  SITE  ADDED  */ 

S”ATH  i-CX  ; 
flL^ID-'P'ILK'; 

Co  NT  F II-  FT  LI  NK; 

IF  (C  IN  IP  1L  = (3)  < ')  THEN 

DC; 

P :7L  A G = 1 ; 

PIT  SKIP  FIL:  (P.  ITT ) iriT('**  FREOR  TK  ONK  ='  , 

VC  I SC  IN'  TIROL)  (COL  (2)  ,A  ( IS)  , A ( 7)  ) ; 

GO  IT  E X I ; 

END; 

FL  S “ ; 

FL8LIST=  ' RMLKFIAGR.ILKCCrEFNC.  * ; 

CALI  OPTO  (7,1); 

Ir  (S  I ATUS-»=  OK)  Til~N  GO  TO  EXIT; 
w AS T F R_  L T NK= I C A R E A; 

LKCXT=LKCKT| | FTLTNK) | 3LKF  LAG ; /*  LINK  ADDED  */ 

SI  RI  F.3=SERIES  | | VS  I NH  wp|  | MLFCCDEI  |1LK  FL  AG;  /*  SITF,LINK  CODE 

LINK  FLAG  ADDED  */ 

END  FIND; 


/*  IFOCFD'fRF  FLAGS  */ 


/*  EOT F-  ALL  THE  CHARACTERS  MS  FT  IN  CHARS  EXCEPT  CHARACTER  "A”  HAVE 
THr  FOLLOWING  MEANINGS  IN  THEIR  RESPECTIVE  CHARACTER 
posi  ncNS 


A*  ' 

• L : 

"IN"  (AVAILABLE)  STATE 

‘t  = * 

• ‘ 1 7 ' . 7 ' B : 

SATELLITE  11  NK  OUTAGE 

M = • 

iTCTIOC  * E: 

•HID 

1 • ' • t : 

GANKIN  G 

' # 

, ' * 7 1 > ’ B : 

BLAST 

r - » 

"I'D: 

F 8 F 

HOC 

(CH  A N 

1 , CHARS)  ; 

CL 

CM  A < 1 

OH  A"  (1)  , CHARS  CHAR  (S)  , 

BIT0 

PIT (S)  ; 

1 A " 

r-  =•  S8 

D F ' * 

ITS 

= 'l  NS  P 

7 C (CHARI)  ; 

P l 

8 IT8  = 

" -r  •?)  ) 7H v N 

no  ; 

Cl  A RS  = ’ AAA  A »•  ; 

C > to  XTT{ 

END; 

-LSF; 

Do  1=4  Tr  3; 
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IF  (51IJSTP  (BITS,!  , 1)=  ' *R)  THEN  SU  SSTR  ( CHAR  5,  I-  3,  1) 

END  ; 

HD  FLAGS; 


/ * * ******«*■*******>»******** 

/♦  I K ? ^ F.  N A L FnflCr- HFS  C F PROCFniR  E CECA  */ 

/-******\*x*  ***************  ********»*******♦***/ 


"Y  T T • * 

■P  DEC  A; 


y * * * * * ****^*^******<U(iM****<i**0**f'*»«*»+*************+**^  / 

/*  FND  s’lESr  EXTERNAL  PSOCrJDUFE  OF  FFCCPDUFE  TRIM  */ 

/*<:***  ******************  »Mf  *M**»M'M>****nH**»»*******/ 


♦ pane  ESI' ; 


/A****************************************** 

/»  b"g:n  second  external  fkccfeufi:  of  frccf 

/************  **************>!i***»************ 


**♦*»**■ 


rUFF  FRIM  */ 

************/ 


/*  NETWORK  ADDER  PROGRAM  */ 

/♦  V 

/*  TITS  r •VCtP!!.7"  V FOR  RECEIVING  INFORMATION 
A30UT  A CIRCUIT  FpCf.  PRCCEDUEE  EECA 
ADDS  SITF(S)  AND  LINK(S)  TO  THE  SPECIFIED 
INPUT  NETWORK  PRIMITIVE  CONNECTION  MATRIX  ♦/ 
/*  */ 

/*  HEUrs-  LINKS,  S7EILS,  MNDS,  LNDS(.  ) ,NET(.  ,.)  , 

S r E V A 1 , S E R V A 2 */ 


LINKS  ; 

STL  I ES  : 
MNDS; 


I.nd  ; ( .)  : 


N ”T ( . , . ) : 

spp  va  1 : 

v»2 : 


NPMEEE  n LINKS  ""RAVLRSFD  ’ Y I ' 
SAME  AS  F "FINED  IN  PROOF  DU.?'  "A 

NHMSFR  OF  SITFS  IK  TH  E NF~W.  »' 

S'”  AFT  OF  PROCFL’IRE  N FA 
ARRAY  OF  I CHARACTER  SIT:  » 

T H7  N p''’  W 0 RK  AT  THF  STA.  : 

PR  I MI  TT  Vp  CCNNFCTICK  *V-  . X 
AT  THF  ST  ART  OF  F HOC  ED"1  ' '•  I 

SAME  AS  DEFINED  IN  MM  . 

S AM  r AS  DEFINED  IN  MAH 


/*  */ 

/*  C ITFUTS-  MNT'S  , LNCS  (,  ) , N FT  (.  , . ) * 
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AD-A067  217 


UNCLASSIFIED 


COMPUTER  SCIENCES  CORP  FALLS  CHURCH  VA  F/G  17/2 

INVESTIGATION  OF  THE  VULNERABILITY/SURVIVABILITY  OF  SYSTEMS  SUP-ETC(U) 
JUN  78  H BLANK » 6 KINaL*  M BASSMAN#  D 6AN  DNA001-77-C-0015 

DNA-4354F-1C-1  NL 


2 i^L 


n n ns 


I.ND3(.) 

N^(.  . .) 


/* 


NUMBER  Of  SITES  IN  THE  NETWORK  AT  THE 
END  or  PROCEDURE  NEA 

ARRAY  OF  3 CHARACTER  SITE  SERIAL  #S  IN 
THE  NETWORK  AT  THE  END  OF  PROCEDURE  NEA 
PRIMITIVE  CONNECTION  HAT  FIX  CF  THE  NETWORK 
AT  THE  END  OF  PROCEDURE  NEA  */ 

*/ 


HE  A : FROC{ LINKS, SERIES, MNDS, LNDS, NET); 


/*  PROCEDURE  CALIED  3Y  TROCEDU  RE  NEA  */ 


/*  INTERNAL  PROCEDURE  */ 


/*  DCL  IN  D X_  IN  FOR  M ENTRY  (DIN  ? I XED  (15,0))  ; */ 


/*  DECLARATIONS  FOP  THE  FILE  AND  THE 
IDENTIFIERS  OF  PROCEDURE  NEA  */ 


DC  I P8KCUT  CUT  PUT  FILE  PRINT  STREAM; 

DCL  NET  (*  ,*  ) CHAR  (2), 

LNDS  ( *)  CHAR  (3), 

( X X , X X N ) CHAR  (2), 

SEE  IrS  CHAR  (A  8)  VAR  , 

CHARE  CHAP  (1)  I NIT  (•'  ')  , 

CHAPF3  R 1 1 ( 8)  I N I T ( ' 0 2 00  1 • B ) , 

(SERVC,SERVA1,SERV  A2)  SI?  (8)  FXT, 

(?71,ZZ2,ZEF,ZZT)  CHAR  (3), 

(I,J, II, JJ,KK,LL, LINKS)  BIN  FI  XFD  (1  5 , j ) , 

( M NDS  , NF  , NT  , MFL  AG)  EIM  FIXEE(  15,  1)  ; 

/*  */ 

R 2 : DO  1 = 1 TO  LINKS; 

CALL  I NDX_TNFCRM (I) ; 

CH  A FF3=  UN3  PEC  (CHARE)  ; 

IT  (CH\RFB=  ('  U ' • B ) |CHA3FB  = SERVA1  | CHARFP=SERV  A2)  THEN 

LI  N K _ A D P_  I C C F :FC; 

IF  ( MM  DS=  ) THEN 
DO  ; 

SF=  MNDS ♦ 1 ; 

N T=NF  + 1 ; 

LNDS ( N F ) = Z Z 1 ; 

LNDS  (NT)  =ZZ  2 ; 


I 


NET  <NF, NT ) = XX  ; 
r, o TO  PR  1 ; 

FND  ; 

USF; 

IF  ( HFL  AU=  3)  THEN 

/*  V 

/*  rctii  clt  sitks  */ 

/*  */ 

EO; 

/♦  CHECK  IF  L TNK  AL^VA^Y  EXISTS  V 
X X N-  N t'r  ( N F , NT  ) ; 

IF  (XXN  =•  0 ' » ) TH v N XXN  = NET  ( NT,  NF)  ; 

IF  (XXN  = 'i*0»)  THEN 
/*  ADD  A NFW  LINK  */ 

00; 

NET(NF,  NT)=XX  ; 

00  TO  RF  1 ; 

END; 

ELS*1; 

IF  (XX  N-»=  XX)  THTN 
/♦  MULTIPLE  LINK  FOUND  */ 

DO; 

PUT  SKIP  F 1L  T (I  3N0IIT) 

.’PIT  (' MULTIPLE  LINKS  DETHFKN  ',LNPS(NF) 
• B ' , LNDS (NT) ) 

(COL  (1)  ,A  (23)  , (1)  A (?)  ) ; 

PUT  SKIP  FILF  (FRMOUT) 

FDIT('OLn  LINK=',XXN,  * TST  LTNK  = ',XX) 
(COL  (1)  ,A  (S)  ,A  (2)  ,A  (1  * ) ,A  (2)  ) ; 

2NT; 

KL  SR; 

0,C  TO  PH2; 

END; 

1LSF  ; 

3R  1: ; 

NET (NT  , NT)  =XX  ; 

3 R 2 : ; 

END  PI; 

3 P 3 : ; 

FND  LINK_ADD_LOOP  ; 

ELSE; 

FND  P 2 ; 


/*  BFOXN  INTERNAL  F30CED11FE  CF  IFOCECnpE  NEA  */ 


IN  D X_  IN  FOE. M : PR OC  (N)  ; 

DCL  K PIN  FIXED  (lb,’  ) ; 


H = 11>6*(N-1)  ; 

,!J=  1 1 ♦ ft  * N ; 

KK  = 14*0*  (N-1)  ; 

LL=  1b  »ft*  (N-1)  ; 

7.Zl  = Stin  STR  (SFRIES,II  ,3)  ; 

'7.  2=SU  PST  R (SERIFS,  JJ,  3)  ; 
XX=SIIRSTR  (SFKIES,KK,  2)  ; 
CHARF=SUBSTF(SEFTFS,LL,1); 
F N r I NPX  INFORM; 


/*  A**  **************************************1 

/♦  F.N  P INTERNAL  PF.OCBDORF  CF  P ROCK  DUFF  NF  A 

/*,*».******«**, **A***»*»*******»*******»**1 


F NP  NT  A ; 


^*****  ***************  ■,**********************************  ^ 

/*  EJO  SECOND  rXTFRN  AL  PROCFPnRF  CF  PROCEDURE  PRIM  */ 


//LK  FT.  SY  SLMOP  ^P  DSN  =TOT  AL  . DB  1,1  B (PRIMS)  ,DTSF  = SHR 
//IKEP.PPTC  DP  PSN=S  YS9.  TOT  AL.  LINKLIB4,  CISP=SHR 
//LKIT.BYSIN  DD  * 

INCLUDE  PBIC(DBIC) 

/* 

//  FXKC  TO" ALU , PCNAMF=  PRIMS , REGICN=  3S  K 
//RMCT  PP  DSN -B  H ‘ 1 .PT 1 1 9 .RMCT ,PI SP=SHR 
//RITE  PP  PSN  = rU  V . F1 119.  HIT  K,  BIS  T=S  HR 
//  R M L K PP  r3N=tliP  1*.PI  11  9.RMLK,PI  SP  = SHF 
//R MSI  PD  PS  N = tl’l  1 . PT  1 19.  DM-.I,  PISr  = Sl»P 
//  FV  CT  PD  T)SN*nmi.'.?T119.'»VC1#DIEP  = SHR 
/ / R V T L DD  DSN- M I 1 ' . FI  1 19.  RVTL, PISP=S HR 
//PFIMIN  PP  DSN=M  176r'.PRIMTN  .DATA  ,DI  SP=?HR 
//PRMOUT  P)  DSN=  Ml7bS.  PRMCDT.  PA"  A,  DIS  F=OLD 
// PPNOtIT  1 D^  PSN -M17hr'.PRMO!ni  .DATA  ,PISF  = SIIR 
✓/MmonT2  DD  DSS*B176S.  PRBOUT2.  OITA,  DISPOSER 
//PFMPUT3  P"  DSN=M 1765. PFMOHT3. DATA, DI SF=SHR 
//SYBFRI  NT  DP  S YF  CUT*  ( A , II ) 

// 


3.2.4  Connectivity  Search  Program 


/* 


MAIN  PROCEDURE  CNSS 


*/ 


CNSE  : PROC  CPTICNS  (MAIN)  ; 


/*  EXTERNAL  EFCCEDURE  CALLED  EY  EROCEEURE  CNSE  */ 


CCL  PATH  2X1  ENTRY (PIN  FIXED (1 5 ,0)  , PIC  »999', 

FIC  ' 999',  E I N FIXED  (15  ,0)  ) ; 


/*  DECLARATIONS  FOR  THE  FILES  AND  THE 
IDENTIFIERS  CF  PROCEDURE  CNSE  */ 


DC  L PRKCUT1  INPUT  FILE  STREAM, 

CNSE IN  1 INPUT  FILE  STPEAM, 

CNSECT1  OUT  FUT  FILE  STREAM; 

/*  FILE  PRMO'JTI  CONTAINS  THE  NUMEER  OF  SITES 
AND  THE  PRIMITIVE  CONNECTION  MATRIX  FCR  THE 
SWITCHED  NETWORK 

FILE  CNSEIN1  CONTAINS  THE  FROM  AND  TC  SITE 
SERIAL  AS  AND  INFORMATION  REGARDING  WHAT 
NEXT  N FIGHBOR  S IN  THF  PFIMITIVE  CONNECTION 
MATRIX  ARE  TC  EE  DELETED  TO  MODIFY  IT 
FILE  CNSE0T1  CONTAINS  THE  SIMFLE  PATHS 
BETWEEN  THE  GIVEN  FRCM  AND  TC  SITES  */ 

DCL  PCM  (153,151)  CHAR  (2)  I NIT  ( ( 22 50  0)  (1)  '00')  RXT, 

SITES  (150)  C H A R ( 3 ) INI  T ( (1  50)  (1 ) • 000*  ) EXT, 

SI  TEN  (1  50  ) CHAR  (8)  I NIT  (( 1 50)  ( 1)  • 00000000' ) EXT, 

TMP 1 PIC  • 9'  INIT('O')  , 

TMF8  CHAP  (8)  I NIT  ( ' Of'0  00  Of  O'), 

(NFF,NTT)  PIC  *999', 

PDL  ( *)  PTC  *999*  CTL  EXT, 

FT  AG  (*  ) CHAR  (2)  CTL  EXT, 

(NUMC,NTMP, ROW, COLUMN, FLAG, FLGR,FLGC)  BIN  FIXED(15,0) 


PATHLTH  BIN  PIXED(15,0)  EXT, 

(I,J,K,N,  IP,  LOOP  , NPA  TH ) BIN  FIXED(15,0); 

/*  INEOTS  */ 

FLAG ,PATHLTH=0  ; /*  INITIALISE  NC  MODIFICATIONS 

AND  PATH  LENGTH  FLAGS  ♦/ 

GET  FILE  (PRBOUT1 ) LIST  (N)  COPY  (CNSEOT  1) ; 

DO  1=1  TO  N; 

GET  FI LE ( EF  BOUT  1 ) EDIT  ((ECM(I,J)  CO  J=1  TO  N)) 

(COL -1)  , (N)  A (2)  ) ; 

END  ; 

CO  1=1  TO  N; 

GET  FI  LE  ( ERBOUT1)  ED  IT  (S  IT  E N ( I)  , S IT  ES  ( I)  ) 

(COL  (5)  ,A(8),X(2),A(3))  ; 

END  ; 

GET  FILE  (CNSEIN1)  LIST  ( NFF,  NTT ) COPY  (CNS  EOT  1)  ; 

GET  FILE  (CNSEIN  1)  EDIT  (FLAG)  (COL  (1 ) ,F  ( 1 ,0)  ) COPY (CNS EOT1) ; 
GET  FILE(CNSEINI)  EDIT  ( E AT  HLT  H)  (COL  (1 ) , F (2 , 0 ) ) COPY  (CNSEOT1) 
IF  (FL  AG=0 ) THEN  GO  TO  NO_MODIFICATIONS ; 

GET  FILE  (CNSEIN  1)  EDIT  (N  UMC)  (CCL  (1 ) ,F  (2  ,0)  ) COPY  (CNSEOT1 ) ; 
SCOPE_CF_  NO  BCJEEGIN  ; 

DC L FROBTOS (NOBC)  CHAR(169)  VAR; 

/*  BAXIMDB  20  NEXT 

NEIGHBOR  DEIETICNS 
ALLOWED  */ 

DO  1=1  TO  NUNC ; 

GET  SKIP  FILE  (CNSEIN1)  LIST  ( FROBTOS  ( I)  ) COPY  (CNSEOT1)  ; 

END; 

/*  V 

/*  MODIFY  THE  PRIMITIVE  CONNECTION  BATRIX  */ 

/*  V 

DO  1=1  TC  NUBC; 

FLGR=C ; 

TMP8  = SDBSTR (PROMT CS (I) ,1,8)  ; 

DO  J = 1 TO  N ; 

IF  (TME8  = SITEN(J)  ) THEN 
DO; 

F LG  R=  1 ; 

RON=J; 

GO  TO  DONE1 ; 

END; 

ELSE  ; 

END; 

DCNE1 : ; 

IP=L  EMGTH  (FROMTOS  (I)  ) ; 

IP=(IP-1)/8; 

DO  J=1  TC  IP-1; 

FLGC=0; 

NT  M P=  J*  8 ♦ 1 ; 
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TMP8=SUBSTR  (FROMTOS  (I)  , NTHP,8)  ; 

DO  K = 1 TO  N ; 

IF  (TM  F8  = S IT  EN  (K)  ) THEN 
DO; 

F LGC=  1 ; 

COLUMN  =K ; 

GC  TO  DCNE2 ; 

END; 

ELSE  ; 

END; 

DONE2 : ; 

PUT  FILE  (CNSEOT1)  ED  IT  ( • HO  H=  • , R 0 k ,COl  ON  N) 

(CCL  ( 1)  , A (U)  , (2)  F (3,0)  ) ; 

PUT  SKIP  FILE (CNSECT1)  LIST  (FLGP,  FLGC)  ; 

IF  ( ( FLGR  = 1)  6 { FLGC  = 1)  ) THEN  PCM  (ROU, COLUMN)  = '00  ' ; 
END; 

END; 

END  SCO  FE_CF_  NUHC ; 

NO_  MCDI  FIC  ATI  C NS  : ; 

CO  1=1  TC  N; 

PUT  FILE(CNSEOTI)  EDIT  ( (PCM  (I  , J)  DC  J=1  TC  N)  ) 

(COL  ( 1 ) , (N)  A ( 2) ) ; 

END; 

CALL  PATH(N,NPF,NTI,NPATH) ; 


/*  */ 

/♦  CLOSE  FILES  ♦/ 

/•  */ 

CLOSE  FI IE ( F FHCUT1 ) ; 
CLOSE  FILE  (CNSEIN1  ) ; 
CLOSE  FILE  (CNSECT1)  ; 

END  CNSE  ; 


♦PROCESS; 


/• 

/** 


BEGIN  EXTERNAL  PROCFDURE  OF 


FROCEDURE  CNSE  */ 

*****************/ 


/*  V 

/♦  THIS  PROCFDURE  DETERMINES  ALL  SIMPLE  PATHS  FROM 

A GIVEN  SITE  TO  ANOTHER  SITE  IN  A GIVEN  NETWORK  ♦/ 

/•  V 
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/*  INPUTS-  N,NFF,  NTT, SITES  (.  ),5ITEN(.)  ,PCM(.,.)  , 

PATHLTH  */ 


/*  N : NUMBER  OF  SITES  IN  THE  NETWORK 

NFF:  FROM  SITE  SERIAL  I (3  CHARACTERS) 

NTT:  TO  SITE  SERIAL  • (3  CHARACTERS) 

SITES  (.):  APR  AY  OF  SITE  SERIAL  IS  IN  THE  NETWORK 
S IT  EK ( « ) : ARRAY  OF  SITE  NAMES  (8  CHARACTERS  EACH) 

IN  THE  NETWOFK 

PCM  (...)  : PRIMITIVE  CONNECTION  MATRIX  CF  THE  NETWORK 
WITH  LINK  CODES  (2  CHARACTERS  EACH)  AS 
ELEMENTS 

PATHLTH:  LENGTH  OF  A SIMPLE  PATH  IN  TERMS  OF  THE 
NUMBER  OF  LINKS  TRAVERSED  V 

/*  V 

/*  OUTPUTS-  PDL  (.)  ,PTAG  (.)  ,NPATH  V 

/*  ?DL(.):  ARRAY  OF  SITES  (SERIAL  IS)  T PAVERS  ED 

IN  A SIMPLE  FATH 

P T A G ( . ) : ARRAY  OF  LINKS  (LINK  CODES)  TRAVERSED 
IN  A S IMPLE  PATH 

NPATH:  NUMBER  OF  SIMFIE  FATHS  FCUND  */ 


/*** 


NOT  ES 


/*  EXIT  IS  TAKEN  OUT  OF  THE  PPCCEDCRE  WITH  ERRCR 
MESSAGE  FOR  THE  FOLLOWING: 

1.  FRCM  AND  TO  SITES  ARE  THE  SAMI  (NFF=NTT ) 


2.  "SINK”  SITE  NAME,  IF  ENCOUNTERED  , IS  PRINTED 
CUT  */ 


PATH  :FF:OC(N,NFF, NTT, NEATH)  ; 


/*  DECLARATIONS  FOR  THE  FILE  AND  THE 
IDENTIFIERS  CF  PROCEDURE  PATH 


DCL  CNSEOT1  OUTPUT  FILE  STREAM; 

DC  L NfJ  ( 153)  I N IT  ( (150)  C)  , 

LNN  (150 ,150)  pic  ' 899'  INIT  ( (225C0)  ( 1)  • 00C* ) , 
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PCM  (150,153)  CHAR  ( 2 ) F XT , 

PPCfl  ( 150,  1<4S)  cm  ( 2)  INIT(  (22350)  (1)  * •), 

Pb  L C ♦ ) fie  '999  • CTL  EXT, 

PTAG  (* ) CHAR  (2)  CTL  EXT, 

SI  TES  ( 1 5C)  CH  A R ( 3)  EXT, 

SIT  E N (150)  CHAR  (U)  EXT, 

PATHLTH  BIN  FIXED{15,0)  EXT, 

(I  , J , K , L , N,  NF,  NT  , NX  , J L , IP,  NXT)  EIN  FIXED(15,0), 

( IFLG, NPATH, COUNT, LASTNN)  BIN  FIXED ( 15 ,0)  , 

( NF  F , NTT)  PIC  *cqqtf 
E EC  1 PIC  '99'; 

NPATH,  COUNT  = C; 

DO  1=1  TC  N; 

IF  (N  F F = S IT  EG  (I) ) THEN  NF=I; 

IF  ( NTT=SITES( I)  ) THEN  NT  = I; 

END; 

PUT  SKIP  PIL  E (CNSEOT  1)  LIST(NF,NT)  ; 

IF  ( NF=  NT ) THEN 
S 5 : DO ; 

PUT  SKIP  FILE  (CNSEOT  1)  EDIT  ('FRON  AND  TO  SITES  SANE') 
(COL  (5)  ,A  (22)  ) ; 

GO  TO  EXIT; 

END  S5; 

ELSE; 

/*  */ 

/*  SET  UP  NEXT  NEIGHBOUR  MATRIX  IN  TERMS  CF 
SITE  SSFIAL  # ANT  TAG  MATRIX  IN  TERMS  OF 
LI NK  CODE  */ 

/•  */ 

Sl° : DO  1=1  TC  N; 

K=0; 

S20 : DO  J=1  TC  N; 

IF  ( (PCH  (I,  J)  =*00*  ) | (PCH  (I,  J)  =*0T  •)  ) THEN  GO  TO  S30; 
K=  K*  1 ; 

LNN  (I , K ) = J; 

ppen  ( I , K)  =PCH  (I  ,J)  ; 

S30  : ; 

END  S2C; 

NN  (I  ) = K; 

END  SIC; 

/•  */ 

/*  MAIN  LOGIC  */ 

/*  V 

IP*  1; 

ALLOCAT*  TDL(N)  I NI T ( ( N)  ( 1 ) •O'*  0 • ) , PT  AG  (N  ) INIT((N)(1)*  •); 

PTL  (IP) =N F; 

/*  */ 

/*  END  SITE  IS  NCT  YKT  0 ET A I N E C */ 

/*  */ 

ENDNCDE  :; 

L ASTNN  =0 : 


/•  PPL  IS  NOT  Y FT  FHPTY  •/ 

/•  ♦/ 

PPL FN  T Y : ; 

NF»  rPl  (I F ) ; 

0 L -NN  (NF)  ; 

IF  ( J L-  0)  THEN 
S35 : PC; 

PUT  SKIP  FILE  (C  N SECT  1 ) 

EDIT  (•♦••NO  NEXT  NEIGHBOURS  OF 
SI  TEN  (NF))  (COl(S)  ,A(2r>)  ,A(H))  ; 

C.C  TC  PCFNODF; 

ENP  SIS; 

ELSE  ; 

IF  (L  A STNN  - 0 ) THEN 
S40  : DC  ; 

Sr>P  ; TO  J=  1 TC  0 L ; 

NX-LNN ( N F , J)  ; 

IF  ( NX  = L AST  N N)  THEN  GO  TO  SHC; 

ELSE; 

ENP  SSP ; 

GO  TO  POP NOPE; 

ENP  S4  0 ; 

ELSE  0 1; 

G C T C S 7 0 ; 

S s C : ; 

IF  l J - J L)  THEN  GO  TO  PCI  NOTE; 

FLSF  0 -0  ♦ 1 ; 

STC:  ; 

/•  • / 

/*  CHECK  ALL  NEXT  NEIGHBOURS  IN  INN  */ 

/♦  •/ 

SHP:  DO  L-U  TO  01. ; 

I FlG  = 0 ; 

/*  */ 

/*  CONSIDER  ALL  SLTFS  ON  THt  PPL  EOR  CHECK 

BFFORF  A T D I N G 10  THE  PPL  */ 

/*  •/ 

SBO:  PO  KO  TO  IP; 

IF  (PPL (K)  -INN  (NE  ,L) ) THEN  IFLG=1; 

ELS  F; 

ENP  S«P; 

IF  ( I FLG-0 ) THEN  GO  TC  NEWSODE; 

FLSE; 

FNP  SHO  ; 

IF  ( I ELG  - 1 ) THFN  GO  TC.  PCFNODE; 

ELSE  ; 

/*  V 

/♦  A OP  A NEW  SITE  TC  PPL  ♦/ 

/•  V 

NEW  NODE : ; 

P TAG  (IP)  -PPCfl  (NF,L)  ; 
l F ( I P=  1)  THtN  PUT  SKIP  F IL  l (CN  SEvIT  1 ) EDIT  ( ' PT  A G 1 • 


U-5»5 


L 


, PTAG  (IP)  ) (COL  (5)  , A(b)  , A ( 2)  ) ; 

IP«IP*1 ; 

FDL  (I  F)  = LNN  (NF,  L)  ; 

N X T =P  DL (IP)  ; 

IF  ( N XT-»  = NT)  ThFN  GOTO  FNCNOCE; 

/•  */ 

/*  A CANDIDATE  SIMPLE  PATH  IS  OBTAINED.  PATH 
INFCFFAfTCN  IN  AKR  AYS  PEL  AN  L FT  AG  IS 
PRINTED  OUT  */ 

/•  •/ 

COUNT  =CO  UN  T ♦ 1 ; 

DECI=IP-1 ; 

PTAG  (IF)  = DEC I; 

NPATU-NPATHO  ; 

IF  (CCIJ  NT  -»  = 2°  ) THEN  GO  TC  COPhINT; 

CO  UN  T =0 ; 

PUT  SKIP  FI  LE  (CNSECT1)  EDIT  ( ' P ATHS=  • , NP  AT  H) 

(COL  (1  ),  A (6)  ,F  (4,0)  ) J 
COPRI  NT : ; 

IF  (I F > F AT  HLT  H ♦ 1 ) THEN  GO  TC  NOPRINT; 

PUT  SKIP  FIL  F (CNSEOT  1) 

EDI  T ( (SI  TEN  (PPL  (J)  ),'(',  PT  AG  ( J ) , • ) • DO  J = 1 TO  IP)  ) 
(COL  (5),  (10)  (A  (8)  ,A  (1)  ,A  (2)  ,A  ( 1)  ) ) ; 

NOPRI NT: ; 

/♦  ♦/ 

/*  POP  OFF  LAST  SITE  FROM  PEL  ANE  SET 
LASTNN  EOUAL  To  POPPED  SITE  */ 

/*  */ 

POPNODE:; 

LAST  NN=  PPL ( I E)  ; 

PDL  (IP) =•  000* ; 

FT  AC.  (IF)  = • • ; 

I F=  I F - 1 ; 

IP  (IP-0)  THFN  GO  TO  EXIT; 

EISE  GO  TC  FDLENTY ; 

EXIT:; 

PUT  SKIP  FILF(CNSEOTI)  ED  IT ( • NPATH  = ' , NF ATH ) 

<CCL<4")  , A (6  ) , F (4 , 0 ) ) ; 

FREF  PPL, PTAG; 

END  FATH ; 


/*' 

/* 

/*' 


END  EXTERNAL  PROCEDURE  OF  PROCEDURE  CNSE  */ 

,*,*****«***•»*********,*,*,*«»*,***•**••,••»/ 
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3.3  DATA  HAST  l I'DAl'lNC.  lMUK’diAM 


The  purpose  of  this  program  is  to  update  status  flags  in  the  data  base  (file). 
These  changes  in  the  flags  represent  node  and  link  outages  and  degradations  which 
occur  from  nuclear  weapons  effects. 


/*  UPDATE  DATA  EASE 

/* 

/*  THIS  PROGRAM  SERVES  TO  UPDATE  THE  DATA  BASE  EFETA1  WHEN 
/*  THE  COMMUNICATIONS  NETWORK  UNDERGOES  A CHANGE. 

/*  CHANGES  ARE  FSOVIDED  CN  CARD  INPUT  IN  THE  FOLLOWING  FORMS: 
/*  NODE  CHANGES: 

/*  COLUMN  1 S 

/*  COLUMNS  J-IL  (NAME  OF  SITE,  DC  A CODE  CONVENTIONS) 

/*  COLUMNS  11-13  (TYPE  CF  FACILITY,  THREE  LETTER  CODE) 

/♦  COLUMN  15-19  (NEW  FLAG  VALUE) 

/*  IF  CCL  20  CONTAINS  'P',  CONDITIONS  SPECIFIED  APE  RESET. 

/*  LI NK  CH ANGES  : 

/*  COLUMNS  1 L 

/*  COLUMNS  3-7  (LINK  NUMEER,  ICA  CONVENTIONS) 

/*  COLUMNS  15-19  (NEW  FLAG  VALUE) 


*/ 

V 
*/ 

♦/ 

V 

V 

V 

V 
*/ 

if 

if 

if 


/*  FLAG  VALUES  APE: 

/*•  g = E M F E = £ L A ST 

/*  J = JAMMING,  M = MHD,*'s  = S ATT  EL  IT  E LINK  ATTACK. 

/* 

/*  IF  COL  2n  CONTAINS  ' R ' , CONDITIONS  SPECIFIED  ARE  RESET. 
UPDATE:  PROC  OPTIONS  (MA  IN)  ; 

^INCLUDE  EXTDCL;  **■' 


if 

if 

*/ 


DCL  1 


CM D £ EXT 
2 CEENM 
C LOS  M 
OPEN  V 
CL  CSV 
SSjF.M 
REST  M 
SEQRV 
SERL  V 
REST  V 
P EA DM 
W PIT  H 
ADD  M 
D EL~ M 
REATV 
WRITV 
AEDVC 
ADDVB 
ADDVA 
ADDV  R 
DEL  VD 
PEADR 
2 R EA  D D 
2 SSQWV 
2 RCLOC 
2 DEQUE 


CHAP 
C H A F. 
CHAR 
CH  AF 
CHAR 
CHAR 
CH  A F 
CHAR 
CHAR 
CHAR 
CHAP 
CHAP 
CHAR 
CHAR 
CHAR  , 
CHAP  (5 
CHAR 
CHAR 
CHAP 
CHAP 
CH  AR 
CHA  R 
CHAR 
CHAR 
CHAP 


INI?  ( 
I NIT  ( 
I NI I ( 
IN  IT  ( 
I NI  T { 
I N IT  ( 
I NIT  ( 
I NI  I ( 
I N IT  ( 
I NI  T ' 
INI? 

I NIT 
I NI  I 
I NIT 
I NI  T 
I NIT 
I NI  T 
I NI  I 
I N IT 
I NIT 
I NIT 
I NIT 
I NIT 
I NIT 
I NI  T 


OPENM 
CLOSM 
CPE  NV 
CL  OS  V 
S3QRM 
RE  STM 
SEQRV 
SERL  V 
RESTV 
READ  M 
WRITM 
ACD-M 
DEL-M 
READV 
WRITV 
ACCVC 
ADDV  B 
ADDVA 
ADDV  R 
D2LVD 
READR 
READD 
SEC«V 


DCL  1 CON 


2 

STATUS 

CHAR 

;u)  in  it  ( 

2 

REFER 

CHAR 

4)  I NI  T ( 

2 

ENOP 

CHAR 

4)  I NI r ( 

2 

CK 

CHAP 

4)  IN  IT  ( 

2 

DflMOD 

CHAR 

b)  I NI  T ( 

2 

IASKID 

CHAP 

8)  I N IT  ( 

2 

FI  LEI D 

CHAP 

4)  IN  IT  ( 

/END.  M , 

/)****!  \ 
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r i J A C T 
L K P AT  I! 
TCI'AL 
) IK' ST 
M PK-IT 
r FA 


C ii  A R 
CHAT 
CHAR 
CHAR 
CHAR 
CHAR 


INIT(' TOTAL*)  , 
IN  II  (’  L INKLK  XX* 


I NIT ( 'QUEST ' , 
I NT  T !»  fiPTOT*  ) , 


■"FILES  ( 1 . ) CHAR  (-4)  ItilT  ( ( 1 ) ( 1)  'END.  ') 
CONTROL  CHAT  (3.)  ALIGNED  EXT; 

ICAREA  CHAT  (2  ) ALIGNFC  EXT; 

ELMLIST  CHAR  (22b)  EXT; 

DBm  EXT  ENTRY  (FIXED  BIN,  FIXED  PIN)- 
SIATANL  FXT  ENTRY  (FIXED  BIN, FIXED  DI . 


A L.  A 1 A A 4.  U ‘ - ' 

(FI  XT  D BIN,  FIXED 


TOTAL  FILF.  S, 


RMLK 
:<;i  SI 
P M CT 
r VC  T 
:•  VTL 


CHAP 
C H A F i 
C H A P I 
C H A R i 
CHAP 
CHAP  l 


INIT 
I NIT  i 
I NI  1 i 
INIT 
1 NI  I I 
INIT 


c V 11  c u A H («  I mil 

1 TOTAL  LINKAGE  PATHS, 
2 ' MTjTLKCT  CflXF.  (8)  I N 
2 EFIRLKTL  CliAF  (B)  IM 
2 R MC IL KC I CHAT  (8)1 N 
2 R MSILKCT  CHAR  (8) IN 
2 RK.STLKTL  CHAP  (3)  IN 
2 P.1LKLKTL  CHAP  (9)  IN 
1 I NFC  LINK, 

2 L I UK  SITE  CHAP  ( 1 
2 LINK~TR'JNK  CHAP (7 
2 LINK- LINK  CHAF(5 
LINK  IV  FtJ  CHAR  (23)  D2F 


' RMTR'  ) 
'PMLfC  •) 
• rmsi • ) 

* PMC?'  ) 
' RVCT  ') 
' R VTL*  ) 


8)  I NIT  ( ' P KT  R L KC  X ' ) , 
8)  IN  IT  («  RK'-’RLKTL'  ) , 
8 I NI  T(  •FMCTLKCT  ') 

8)  INIT  {•  RMSILKCT*  ) 

3 ) INIT  ( * RMS ILKTL ' ) 

9)  I NI  I ( • RMLKLKTL  ’) 


1 I NFC  TRUNK 
2 T FIT  N K S IT 


C H A P ( 1 1) 


2 TSJNK'CIPCL’IT  CHAP 
TRU  NK_I  NFT3  CHAR  (2  ) DE 


i it, 


INFO  LINK; 


IN  FO_TRUNK ; 


1 F.LFK  RflLK, 

2 PMlKCTRL  CHAR  (3 
2 RMLKFLAG  CHAR (8 
2 ENDPAEM  CHAP  (4 
3MLK_EI,EM  CHAR  (2.) 

1 ELF.  M PM  SI, 

2 R M— ICT  RL  CHAP  (8 
2 RMS  I FLAG  CHAR  (3 
2 LUOPARM  CHAR  (4 
RMSI  EL  EM  CHAP (2) 


INIT  ( ' RMLKCTEL  *)  , 
I NI  I (•  RKI  KF  LAG  • ) , 
INIT  {’  END.  • ) ; 

£ FI  NED  ELEM  PKLK; 


INIT 
INIT  i 

I NI  T 
EFIN] 


' RKSICTRL'  ) , 
•RM3IFLAG* ) , 
'END.  ')  ; 

C ELEM  PM  SI; 


EMCTC’pL 
P.  MCTFLAG 
H FCT  I D E N 
R MCTXREF 
ENDPARM 


CHAP 

CHAR 

CHAR 

CHAR 

CHAR 


1 1 NIT  i 
1 1 NI  T 
INIT  i 


' RM  CI'CTPL  ’) 
' R KC  TF  LAG  ') 

* RMCTIDEN' ) 

• RMCTXEF.F  ') 


3MCT_ELEM  CHAR (38) 

1 ELEM  RVCT, 

2 RVTTRMSI  CHARI 
2 R V CT  R M CT  C H A F.  < 
2 ENDPARM  CHAR | 
RVCT  EL  FM  CHAP  (2) 


1 ELEM  R.VTL, 

2 ••’VTLEMSI  C ii  A R (8 
2 I-  VTL  RMTR  CHAP  (8 
2 RVTLRMLK  CHAR  (3 


8)  I NI  I { * RMCTXRE 
4)  IN  IT  (•  END.'  ); 
DEFINED  ELEM  H 


_R  MCT ; 


INTI  ( * P VC  TF  MSI ' ) , 
IN  IT  ( ' RV  CTRMCT' ) , 
I NIT  ('2ND.  •)  ; 

EFIN  EC  ELEM  RVCT; 


(8)1  NIT  ( * RVTLR' 
(8)  1 NI  I i*  EVTLRI 
(3)  INIT  ('  RVTLR? 


RVTLRMSI  •)  , 
SVTLRMT  F ' ) , 
RVTLRMLK'  ) , 
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2 ENDPARM  CHAR  (4)1  NI  T ( 'E  ND  .')  : 

DC  L RVTL_ELEM  CHAR(28)  LERINEL  EL  EM_  R VTL  ; 


CHAR  l- 
5IT2  Ci 


CHAR  (50^^ 


DC L CARD 

CCL  1 SITE  CHAfofiE  DEFINED  CARD, 
2 CARD  TYPE  CHAR 
2 FIILTIRA  CHAR  i 

2 SITE  ID  CHAR 

2 EIILIRB  CHAR(I), 

2 SITE  FLAG  (5)  CHAR  (1 ) 

2 INETCATCR  C H A R ( 1)  ; 


LNLU  l 


DC  L CHANGE  LINK  CHAR 
net  i ltn k cha ngs 
2 FIELEFA 
2 LINK  ID 
2 FILLERS 
2 LINK  FLAG 


NED  CHANGE  LINK, 
CHAR  (2)  , 

CH  AR (5  , 

CHAR  (7)  , 

CHAR(  1)  ; 


DECLAFE  NEW_FLAG  BIT  (8) ; 

DC L TRUNK  ID  CHAR  (7)  ; 

DCL  BUFF  EE  CHAR  (5 ' ) ; 

DCL  1 MLK  DEFINED  BUFFER, 
2 LKID  CHAR  (5) , 

2 FLAG  CHAR  (1) ; 


DCL 


DC! 


DCL 


1 MSI  DEFINED  BUFFER, 
2 SITE  CHAR 
2 FLAG  CHAP 


i-J  U L 1 I 

M 


1 MTR  DEFINED  BUFFER, 

2 TRUNK  CHAP  (7)  , 

2 FLAG  CHAR  ( 1)  ; 

1 MCT  DEFINED  BUFFER  . 

2 CIRCUIT  C H A R ( 9) , 
2 FLAG  CHA  R ( 1)  ; 


DCL  CODE  BIT  (8)  ; 

DCL  OLD  LINKS  (10)  CHAR  (5). 

N FIXED-  El  N ARY  (15)  INIT  (C), 
(I  , J)  FIXED  BINARY  (15)  , 
(UN3PEC,  BOOL)  3UILTIN; 


DCL  TR  UNK  REFER  CHAR  (4  ) ; 

DCL  LI NK  "REFER  CHAR (4) ; 

DCL  SITE  REFEF  CHAE{4); 

DCL-C  HAR  AC  TER  CHAR  (1)  ; 


/*  FLAG  VALUES  ARE: 

/*  S = EMP,  E = ELAST, 

/*  J = JAMMING,  M = MHD,  5 = SATTFLITE  LINK  ATTACK. 
CCL  LNKPTH  CHAR  (8)  ; 

DCL  FLAGS  (7)  CHAR  (1)  INIT 

/»  i i p;  i iqi  iji  i i 15  i| 

BITS  (7)  §IT(8)  INIT  ( *f  O')?:  H{/Qf  B,  ' C OftDOOPI  *B, 

• )j  1071  OD*B,  • 1 >r<  *b,  'ODD  10000  *B)  ; 

DCL  W BIT  ( 4)  , 

OR  BIT  (4)  INIT  (*r  1 1 1 • E)  , 

AND  BIT  (4)  INIT  (' C001  *B)  , 

XCP  BIT  (4)  INIT  ('B  1 K • E)  ; 

/*  */ 

/*  FROG  RAM  BEGINS  BY  CFENING  FILES 
/*  */ 

CCL  C HANG  IN  INPUT  FILE  STREAM; 

F UNC  T = TCT  A L ; 

T ASK  I 9 = * UPDATE* ; 


*/ 

*/ 


•000000  10  'B, 


*/ 
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9ff 


C3M0  D = ' RFBTA  1'  ; 
CALL  DBIO(B  ,r ) ; 


F II  NCT  = 
T F IL  EG 
TFI LBS 
TFILES 
T FILES 
IF I LES 
T FILES 
TFI LES 
CALL  0 


C F E N M ; 

(1)  =RrtTR  ; 

(2)  = RMLK  ; 

(3 ) = R MS  I ; 

(4)  = R MCT  ; 
(S  ) = RVCT  ; 

(6)  =R VIL; 

(7)  = E N D P ; 

Din  (4  ,*)  ; 


ON  ENDFILE  (C  HAN  GIN)  GO  TO  STOP; 

CN  ERROR  BEGIN: 

FIINCT  = DEQUE; 

CALL  DBIO (4,n)  ; 

STOP; 

EN  D ; 

NEXT  CARD: 

FIINCT  = ESSTM; 

CALL  DB  10  (3,0)  ; 

F U NCT=  0 FE  N M; 

CALL  DB  10  (4,o)  ; 

GET  FILE  (CHANGIN)  EDIT  (CARE)  ( COL  ( 1 ) , A ( 5' ) ) COPY; 
CHANGE  LINK  = CAnD; 

IF  ( (CAE  D TYPE  -=  'AM  F, 

(CARDTYPE  'S  * j F, 

(CAR  D-TYPE  • L • ) ) THEN 
DO  ; 

PUT  SKIP  L I ST  ('INPUT  ERROR,  CARD  TYFE  =',CARD  TYPE); 
GCTCNFXTCARE; 

END; 

NEW  FLAG  = • TO'.!'’  ' B ; 

W = OR  ; 

DO  J = 1 TO  S; 

DO  I = 1 TO  7; 

IF  (SITE  FLAG  ( J ) = FLAGS  (I))  THEN  DO; 

NEK  FLAG  = BOOL(NEW  FLAG,  DITS(I),  OR)  ; 

GO  TO  END  I; 

END; 

END  ; 

PUT  EDIT  ('ILLEGAL  FLAG  ',  SITE  FLAG(J))  (SKIP,  A,  A); 
EN  D_I  : END;  - 

IF ( IN  D IC  A TOR  = *R')  THEN  DO; 

W = AND; 

NEW  FLAG  = 

" BOOL (NEW  FLAG,  '11111'B,  XCR); 

END; 

IF  (CARD  T Y E E=  ' A ' ) THEN  CALL  RESET  ALL; 

IF  (CARD  TYPER'S')  THEN  CALL  SET  SITE; 

IF  (CARD- TYPE='L')  THEN  CAIl  SET-IINK; 

Status  = ck; 

FUNCT=CL05M  ; 

CALL  D BI  C ( 4 ,:)  ; 

PUT  SKIP  LIST  ('PREVIOUS  CARD  FRCCESSING  COMPLFTED') ; 
GO  TO  NEXT_CAPD; 

RESET  ALL:  PROCEDURE; 

NETJ  FLAG  = • 0 CO  ?GOOC  • B ; 

- U NS  FEC (CH  A R ACT  ER)  = • JCJJ070 l • B; 

CALL  RESET  ALL  SITES; 

CALL  RESET  At.l.-LINKS; 

CALL  RES ET-ALL-T FUNKS ; 

CALL  R ESET- ALL- C I RC  UT  T S ; 
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END  RES  ET_ALL; 

RESET  ML  SITES:  FRCC; 

~ FUNCT  = RESTM; 

CALL  D3I0  (3, 0)  ; 

STATfIS  = OK: 

FUNCT  = SEQRM; 

FI  LEI D = RMSI: 

ELM  1ST  = • RM  SIC  TR  L ' ||  ' R MSI F L AG  ' j|  ENDF  ; 


CALL  DBIO(6.0\; 
E ]STATU; 


OK) 


DO  WHILE  (STATUS  = 
BUFFER  = IOAREA; 

IF  (UNSPEC(  MSI.  FLAG)  - 
DO; 


OQOOOOOO' B)  THEN 
PUT  SKIP  EDIT  ( ' M SI  = ' , MSI)  ( ( 5)  A)  ; 


| | • RMSIFL  AG'  | | ENDP; 


FUNCT  = WRITM; 

CONTROL  = MSI.S  IT  F ; 

ELMLIST  = 'RMSIFLAG'  ||  ENDP; 

IOAREA  = CHARACTER; 

CALI  DBIO (7,0) ; 

FUNCT  = SEQRM; 

ELMLIST  = * E MS  I CT  RL ' 

END; 

CALL  DBI  C (6  ,C! ) ; 

END; 

END  PESET_ALL_S IT  ES ; 

RESET  ALL  LINKS:  FROC; 

“ FUN  CT  = REST  M; 

CALL  DBIO (3,0); 

STATUS  = CK: 

FUNCT  = SEQRM; 

FI  LEI D, = RMLK ; 

ELMLIST  = RMLKCTRL  II  RMIKFIAG  ||  ENDF; 
CALI  DBI  C (6,  J)  : 

DO  WHILE  jSTATUS  = OK); 

BUFFER  = IOAREA: 

IF  (UNSPEC(  MLK.  FLAG)  -•=  • 0 DO 0000 O'  B)  THEN 
DO; 

PUT  SKIP  FDIT  ( * MLK=  ' , MLK)  ( ( 5)  A)  ; 

FUNCT  = WRITM; 

CONTROL  = MLK.  LKIC; 

ELMLIST  = R MLKF  LAG  ||  ENDP; 

IOAREA  = CHARACTER; 


RL  ||  RMLKFLAG  ||  ENDP; 


CALL  DBI 0(7,0) ; 

FUNCT  = SEQRM: 

ELMLIST  = RMLRCT 
END; 

CALL  DBI C (6,0)  ; 

END; 

END  RESET_ALL_LINKS  ; 

RESET  ALL  TRUNKS:  FROC; 

“ FUNCT  = RE  STM ; 

CALL  DBI C ( 3 ,0 ) ; 

STATUS  = OK: 

FUNCT  = SEQRM; 

FI  LEI  D = RMTR: 

ELMLIST  = 'RMTRCTRL'  ||  • RMTFFIAG • 

CALL  DBI  C ( 6 , Cl  ; 

DO  WHILE  1ST  ATUS  = OK)  ; 

BUFFER  = IOAREA; 

IF  (UNSPEC  (MTR.  FLAG)  -»=  • 00 7 CO OOO • B) 
DO; 
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I | ENDF; 


THEN 


PUT  SKIT  FLIT  ('.1TRs,f  MTR ) ( (5)  A)  ; 


CALL 


FUNCT  = WRITM; 
CONTROL  = MTR. TRUNK: 
ELMIS"  = ' FMT  R FL  AG ' 

It)  AH  FA  * CHARACTER; 
CALI  D RI 0 ( 7.0  ) ; 

F’INCT  = SECFM; 
ELMLIST  = ' *■  MTR  CTRL’ 
END  ; 

DPIO  (b, ; 


END  ; 

EN  0 R FSET_A  LL_TR  UNKS ; 


||  ENDP; 

| | • HMTRFLAG’  | | ENDP; 


rlsf: 


ALL  CIRCUITS:  PROC; 
FTTNCT  = F2STM; 

CALL  CDIC  (J  ,<"•  ) ; 
STATUS  = OK; 

FUNCT  - SECFM; 

FILE  ID  = RMCT: 
ELMLIST  = RMCTCTRL 
CALL  DBIO(b.C); 

DO  WHILE  (STATUS  = 
PUFFER  = IOARFA; 

I F ( UN  SPEC  (MCI. FLAG) 
DC; 


I I 

OK) 


RMCT  FL  AG  | | EN  DP; 


• 000 00 COD  *B)  THEN 


PUT  SKIP  EDIT  ( ' M CT  = ' , MCT)  { (5  ) A ) ; 


F’JNCT  = WRITM; 

CONTROL  = MCT. CIRCUIT; 

ELMLIST  = RMCT  FLAG  ))  ENDP; 

IJAREA  = CHARACTER; 

CALL  DP  10  (7,0)  ; 

FUNCT  = SFCPM; 

ELMLIST  = RMCTCTRL  ||  RMCTFLAG  ||  ENDP; 
FND: 

CALL  DB  10  (6 , 0 ) ; 

END  ; 

FND  RESET  ALL  CIRCUITS; 


SE  T SI 


/♦ 


■:  P HCCEDMPF; 

PUT  SKIP  EDIT  ( ' SIT  E = 
FUNCT  = REALM ; 

FI  L El D = RMS  I; 
CONTPOL  = SITE  ID; 
ELMLIST  = R MS  IT L AG  | | 
CALL  DB  TO  (7, 0 ) ; 

FUNCT  = WRITM; 
CHARACTER  = IOARFA; 
UNSPEC  (CHARACTER) 
IOARFA  = CHARACTER; 


, SI  TE_I  D)  (CCL  ( 10)  , A,  A)  ; 


ENDP; 


EOOL  (NEW_FLAG,  UNSPEC  (CHARACTER), 


CALL  D310I7.P)  ; 

PUT  SKIP  EDIT  (‘LINKS  WHICH  START  HERE')  (COL (12),  A); 

LNKFTH  = RMSILKTL; 

REFER  = ' LK  TL ' ; 

CALL  READ  TL  GIVEN  SITE; 

DO  WHILE  IREFEF  -=“ENDF)  ; 

SITE  REFER  = REFER  ; 

CAL  L~S  FT  LINK; 

REFER  = "SITE  REFEF; 

CALL  READ  T L~GIV  EN  SITE; 

END;  ~ “ 


NOW  GET  LINKS  THAT  TERMINATE  HERE. 

V 

PUT  SKIP  EDIT  ('LINKS  WHICH  END  HERE')  (COL  (12),  A); 


w>  ; 
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i 


H i:  AO. 


/* 


SET 


LNKPTH  = • PH  SILKTS'  ; 

REFER  = 'LKTS'i 

CALL  HEAD  TL  GI  VEN  SITE; 

DC  WHILE  TRPTER  -="ENCP); 
SITE  REFFR  = REFER; 
CALL~SET  LINK: 

REFER  = SITE  FFFER  ; 

CALL  READ  T L“  G I V E N SITE; 
END;  ~ " ' 

END  S E-"  S IT  F ; 


TL 


GI VEN  SITE:  PROCEDURE 
— F tIM  CT-  = READY; 


F I L E I D = 
LKFATH  = 
ELHLIST  = 
CCNTRCL  = 
CALL  DD 10 
LINK  INFO 
TRUNK  ID 
LINK  TD  = 


R VTL: 
LNKPT1I: 

R VTL  ELEH; 

5 IT  E~  I T ; 

'’-'MreAj 

= LINK  TRUNK 
LINK_IINK; 


CHECK  IF  WE'VE  ALREADY  PROCESSED  THIS  LINK  FCR  THIS  SITE. 

V 

DO  WHILE  (REFER  -.=  ENDP); 

NTFD  = 0 ; 

IF  N < 1 THFN  EC; 

CLP  l!nKS  (N)  = LINK  ID; 

RETTTRN; 

END  : 

ELSE  DO  I = 1 TO  N WHILE  (NTFD  = ^ ; 

IF  OLD  LINKS  (I)  = L I N K_  I D THEN  NTFD  = 1; 

END;  ~ 

IF  NTFD  = 1 THEN  CALL  DBIO(9,0)  : 

ELSE  IF  N >=  10  THEN  RETURN; 

ELSE  DO; 

N = N ♦ 1 ; 

OLD  L INKS (N)  = LINK  ID; 

RETURN; 

END; 

END; 

END  READ  ?L  GIVEN  SITE; 


LINK:  PROCEDURE: 

PUT  SKIP  EDIT  ( ' LINK=  ' , L INK  IP)  (COL  (1  5 ) , A , A ) ; 

FUNCT  = RF.ADH; 

FILEID  = RHLK; 

CCNTRCL  = LINK  ID: 

ELHLIST  = RHLKFLAG  ||  ENDP; 

CALL  D 3 1 C ( 7 , ‘ ) ; 

FUNCT  = WPTTH; 

CHARACTER  = ICAREA; 

UNSPEC  (CHARACTER)  = BOOL(NF.W  FLAG,  UNSPEC  (CHARACTER),  W)  ; 
IOAREA  = CHARACTER; 

CALL  DQIC  (7,0)  • 

REFER  = ' I.KtL  ' : 

CALL  READ  TL  GIVEN  LINK; 

DO  WHILE  7KEFER  -^  = ~ENDP)  : 

PUT  SKIP  EDIT  ('TRUNK*',  TRUNK  ID)  (CO  L (2C  ) , A , A ) ; 

FUNCT  = REACH; 

FILEID  = RHTR; 

CCNTRCL  = TRUNK  IP; 

ELHLIST  = • R HTRFLAG  ' ||  ENDP; 

CALL  CBIO  (7,'  ) ; 

FUNCT  = WRITH: 

CHARACTER  = IOAREA; 

UNSPEC  (CHARACTER)  = BOOL(NEW  FLAG,  UNSPEC  (CHARACTER),  W)  ; 
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I CARE  A = CHAFACTEB; 

CAI.L  Dn:o(7,n- 
LINK  FEFEF  = FEFFF: 

CALL- S 5T  CIRCUITS  GIVEN  TRUNK; 
REFER  = LINK  RFFER:  “ 

CALL  READ  TL  GIV  EN  LINK ; 

END:  - - 

END  SET_  LINK; 

READ  TL  GIVEN  LINK:  PROCEDURE; 

- — FUN  CT—  = KEADV; 

FILEID  = RV1L; 

LKFATH  = RMLKLKTL; 
control  = link  ID; 

FLMLIS7  = FVTL’EMTF  ||  ENEF; 

CALL  D3  10  (9  ) ; 

TRUNK  ID  = IOAREA; 

END  READ_TL_G1V EN_LINK ; 

SET  CIRCUITS  GIVEN  TRUNK:  PROCEDURE; 

FEFE?  = TLKCT ' ; 

DO  WHILE  (REFER  - = ENDP); 

FU  NCT  = RE  ADV ; 

F IL  E ID  = R VC  T ; 

LKPATH  = RKTRLKCT; 

CONTROL  = TRUNK  ID; 

ELMLI5T  = R VCTRHCT  | | ENDP; 


CALL  C B I C.  (9  , * ) ; 

IF  (REFER  ENDP)  THEN 


?U^  SKIP  EDIT  ('CIRCUIT=  IOAREA)  (CCL  (25  ) , A,  A(9)  ) ; 
CCNTRCL  = IOAREA; 

FUNCT  = RE ADM; 

FILEID  = RMCT: 

FLMLISI  = RMCTFLAG  J|  ENDP; 

CALL  CEIO (7 , G) ; 

FUNCT  = WRITM; 

CHARACTER  = IOAREA; 

UNSFEC  (CHARACTER)  = 

BOO  L ( NE  W FLAG,  UNSFEC  (CHARACTER),  W)  ; 
IOAREA  = CHARACTER; 

CALL  CEIO (7 , r ) ; 

END  ; 

END; 

END  SET_C IRC  UI T S_GI VEN_ TRUNK ; 

STOP  : 

EXIT  ROUTINE:  . , 

pT)T  SKIP  LIST  (’ALL  CHANGES  COMPLETED  •)  ; 

CLOSE  FILE  (CHANGIN) ; 

F 'JNCT  = CLCS  M; 

CALL  EBI0(«,O); 

F U NCT= DEQUE ; 

CALL  ■ CBIO  («,c  ) ; 

END  UPDATE; 
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3.4  UTILITY  PROGRAM 


\s 

j 


i 


DBUTIl,  (Data  Base  Utility  Program)  is  a general  maintenance  facility  for  the 
TOTAL  data  base.  It  provides  a mechanism  by  which  a user  can  add  circuits,  trunks, 
links,  or  sites  to  the  data  base;  delete  circuits,  trunks,  links,  or  sites;  change  any 
data  fields  associated  with  circuits,  trunks,  links,  or  sites;  or  change  the  relationships 
among  the  various  circuits,  trunks,  links,  or  sites.  This  section  contains  a general 
description  of  the  capabilities  of  DBUTIL.  A program  listing  appears  in  Paragraph 
3.4.0. 

3. 4. 1 Adding  Records 

To  add  a site  master  record,  the  user  must  specify  the  control  key,  and  may 
optionally  specify  any  data  fields  contained  in  the  record.  Any  unspecified  data 
fields  are  left  blank,  except  for  the  flag  field  which  is  (initially)  set  to  indicate  that 
the  site  has  not  been  knocked  out;  this  rule  also  applies  to  links,  trunks,  and 
circuits. 

To  add  a link,  the  user  must  specify  the  link  control  key  and  the  control  keys  of 
the  two  sites  joined  by  the  link.  Optionally,  he  may  specify  any  of  the  data  fields  con- 
tained in  the  link  record  except  for  the  location  and  facility  fields,  which  are  auto- 
matically set  to  correspond  to  the  specified  sites.  If  the  specified  sites  are  not  already 
present  in  the  data  base,  they  are  added. 

To  add  a trunk,  the  user  must  specify  the  trunk  control  key  and  the  ordered  set 
of  links  over  which  the  trunk  is  routed.  Optionally,  he  may  specify  any  of  the  data 
fields  contained  in  the  trunk  record  except  for  the  location  and  facility  fields,  which 
are  derived  from  the  endpoints  of  the  specified  links  and  set  automatically.  The  speci- 
fied links  must  already  be  present  in  the  data  base  and  must  trace  a continuous  path, 
in  the  order  specified,  from  one  end  of  the  trunk  to  the  other.  If  these  conditions  are 
satisfied,  the  trunk  master  record  is  added  to  the  data  base;  an  ordered  set  of 
variable  records  (corresponding  to  the  specified  links)  is  also  added,  providing  the 
desired  relationships  among  the  trunk,  links,  and  sites. 
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Adding  a circuit  is  similar  to  adding  a trunk.  To  add  a circuit,  the  user  must 
specify  the  circuit  control  key  and  the  ordered  set  of  trunks  over  which  the  circuit  is 


routed.  Optionally,  he  may  specify  any  of  the  data  fields  contained  in  the  circuit 
record,  except  for  the  location  and  facility  fields,  which  are  derived  from  the  end- 
|X)ints  of  the  specified  trunks  and  set  automatically.  These  trunks  must  already  be 
present  in  the  data  base  and  must  trace  a continuous  path,  in  the  order  specified, 
from  one  end  of  the  circuit  to  the  other.  When  these  conditions  are  satisfied,  the 
circuit  master  record  is  added  to  the  data  base;  an  ordered  set  of  variable  records 
(corresponding  to  the  specified  trunks)  is  also  added,  providing  the  desired  relation- 
ships  among  the  circuit,  trunks,  and  sites. 


3.4.2  Deleting  Records 


A user  of  DBUTIL  can  delete  any  circuit,  trunk,  link,  or  site  by  specifying  the 


control  key  of  ihe  record  to  be  deleted.  Because  sites  ;uid  links  are  actual  physical 
entities,  whereas  trunks  and  circuits  are  logical  concepts,  their  deletions  are  handled 
in  different  manners.  Although  deletion  of  a site  or  link  is  likely  to  be  permanent, 
a "deleted"  circuit  or  trunk  will  often  reappear  with  most  of  the  same  data  fields 
but  with  different  routing  specified. 


When  a user  specifies  the  deletion  of  a circuit,  the  variable  records  specifying 
the  routing  of  the  circuit  over  a set  of  trunks  are  deleted  from  the  data  base.  I ae 
circuit  master  record  remains  in  the  data  base  but  is  "flagged  for  deletion."  That  is, 


unless  the  user  specifies  the  addition  of  another  circuit  with  the  identical  control  key 
later  during  the  same  invocation  of  DBUTIL,  the  flagged  record  will  be  physically 
deleted  from  the  data  base  during  a final  cleanup  step  in  the  program.  If  the  circuit 
is  subsequently  added  again,  any  data  fields  not  respecifiod  retain  their  previous 
values.  The  user  thus  has  the  ability  to  add  a circuit  twice  am  delete  it  without 
having  to  respecify  the  data  fields. 

Similar  processing  is  done  for  deletion  of  a trunk  with  the  additional  restriction 
that  a trunk  cannot  be  deleted  unless  it  is  not  being  used  by  circuits.  Before  deleting 
a trunk,  a user  must  first  delete  all  circuits  riding  the  trunk. 
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Before  deleting  link,  a user  must  first  delete  all  trunks  using  the  link.  Unlike 
deletion  of  circuits  and  trunks,  however,  a request  to  delete  a link  results  ir.  the 
immediate  physical  deletion  of  the  specified  link  master  record. 

As  with  links,  a request  to  delete  a site  results  in  the  immediate  physical  dele- 
tion ot  the  specified  site  master  record.  Also,  before  deleting  a site,  a user  must 
first  delete  all  trunks  passing  through  the  site.  In  addition,  all  links  that  have  the 
specified  site  as  ;ui  endpoint  should  also  be  deleted.  However,  since  it  is  inconvenient 
to  verify  that  this  last  condition  has  been  satisfied,  DBUTIL  instead  will  honor  only 
other  delete"  requests  following  the  successful  deletion  of  a site  . Further,  a success- 
ful site  deletion  enables  a subsequent  "garbage  collection"  step  during  which  all  links 
and  sites  list'd  by  no  trunks  are  deleted.  These  precautions  are  taken  to  ensure 
the  user  does  not  attempt  to  route  a trunk  over  a link  with  deleted  endpoints. 

3.1.3  Rerouting  Trunks 

Since  a common  maintenance  operation  is  the  rerouting  of  a trunk  over  a new 
set  of  links  without  changing  its  endpoints  or  affecting  the  trunk  routing  of  all 
affected  circuits,  such  a capability  has  been  built  into  DBUTIL.  To  reroute  a trunk, 
the  user  must  specify  only  the  trunk  control  key  and  the  ordered  set  of  links  over 
which  the  trunk  is  to  be  routed.  The  specified  links  must  trace  a continuous  path,  and 
the  now  endpoints  must  be  the  same  as  the  old  ones.  If  the  conditions  are  satisfied, 
then  the  old  variable  records  associating  the  trunk  and  links  are  deleted  and  a new  set, 
reflecting  the  rerouting,  is  added. 

3.1.4  Changing  Data  Fields 

DBUTIL  provides  the  user  with  the  ability  to  modify  any  of  the  data  fields  that 
can  be  specified  during  an  add  request.  One  operation  is  provided  to  allow  the  user 
to  update  any  of  the  data  fields  contained  in  a master  record  except  for  the  location 
and  facility  fields,  which  arc  derived  from  and  must  correspond  to  the  routing  infor- 
mation reflected  by  the  variable  records. 
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Since  it  is  occasionally  necessary  to  modify  those  fields  directly,  a separate 
operation  is  provided  to  permit  updating  the  location  and  facility  fields  of  circuit, 
trunk,  and  link  master  records. 

3.4.5  Garbage  Collection 

The  "garbage  collection"  step  discussed  in  connection  with  deletion  of  sites  can 
also  be  enabled  directly  by  the  user.  If  specified  by  the  user,  DBUTIL  will  delete 
from  the  data  base  any  link  and  sites  not  used  by  circuits  or  trunks,  thus  reducing 
the  amount  of  data  stored  and  freeing  space  for  future  additions. 


3.4.G 

DBUTIL  PROGRAM  LISTING 

/ **  * 4 

«»«****%*****4********<ii***************4 

/*  ST 

v : ' 

V 

/*  t"T 

T UC  T n ° r! 

: 

V 

/* 

DBUTIL 

V 

/* 

CONDITION  (TO^FFP) 

*/ 

/* 

AC_C IRC  01 T 

V 

/* 

SET  UPDATE  C 

V 

/* 

AC_?  MI  NK 

*/ 

/* 

~ SET  npn  A TE  T 

V 

/* 

A C_  i I N K 

*/ 

/♦ 

A C_ SITES 

V 

/* 

D E L_C I PCU 17 

V 

/* 

DELATE  UN K 

V 

/* 

DEL_LI NK 

*/ 

/* 

DEL~ SITES 

V 

/* 

S-  "’HONK 

*/ 

/* 

CL~C  IRC  HIT 

V 

/* 

C L~T  N K 

*/ 

/• 

CL~LINK 

*/ 

/* 

PCDTSJTPACE 

♦/ 

/• 

A Dn  HOIJTIN  ; 

V 

/* 

H E AD_  P E JU  ES  r 

*/ 

/* 

A E AD_A DDCHANGE 

*/ 

/* 

REAr~DFLETE 

V 

/* 

3 PAD~H  FROUTH 

*/ 

/* 

read'changfloc 

*/ 

/* 

? F.  A D_  S L’B  F I E LD  S 

V 

/* 

HE  A D^P  COTING 

V 

/* 

N F XTK^ Y 

V 

/* 

K E A D_S  IT  E_ D AT  A 

V 

/* 

S2TFLAG 

V 

/♦ 

FLUSH 

*/ 

/* 

( PLUSH_A  LL  --  ENTRY  PCI  NT) 

V 

/* 

(FLUSlf  FEQOFS?  --  ENTRY  POINT) 

*/ 

/* 

INPUT 

*/ 

/* 

CONDI” ION (END! ILF) 

*/ 

/* 

N ^ X TC  li  A H 

V 

/* 

GET  CHAP 

V 

/* 

PH INT_INP  UT 

V 

/* 

(PRINT  INF  EC  — ENT  PY  POINT) 

V 

/* 

(PR  IN  T_R2Q  --  ° NTRY  POINT) 

V 

/* 

FSG 

V 

/* 

OAR  BA  GF._COLLEC  T 

V 

/* 

*/ 

3-110 


/******* 

/* 

/*  PROGR 


»»**#*»*******»**< 

S'!  MAINTENANCE  ?*v 

vr? sion . f: 

i . v 
2.  * ■ 


:ofd: 

: LEASE 


— mT” — 

; f>  OC  T 77 
17  OCT  77 
la  OCT  77 
19  OCT  77 
23  OCT  77 
2 9 OCT  7 7 
9 2 NOV  77 


,*»*********#*****»*******  *■ 


BASS  KAN  (1ST  RELEASE)*/ 
BASSBAN  */ 
BASSMAN  */ 
BASSBAN  */ 
BASSBAN  */ 
BASSBAN  */ 
BASSBAN  */ 

*/ 


CF'TTIl:  ? F 0 C E D 'f  3 “ ( ? A F M ) OPTIONS  (BAI  N)  ; 

/*  It.FUT  FAR  ABE TEF  */ 

CECLAFF  FARM  Cl  At  ACTER  <1  '•)  VARYING; 

/*  CHANGE  -,i!TS  FI"L9  WHEN  NEW  VrPSICN  COMPILED:  V 

DECEASE  Vs"'  SI  ON  AND  DAT-  C HA  RAC  TER  (2  U ) /*VERSICN  XX.  XX  DC  BCN  YY*/ 

INITIAM  ' VERSION  '3.  C3  32  NOV  77'); 

/*  JOE  TIE'’  ■iT"n'lRN  CODE  */ 

1 1 Cl.  A 2 F EC  BINATY  FIXED(31,r)  INITIAL  (9)  ; 


/*  DECL  AH  A"  ION  S FROM  “HE  TOTAL  SOURCE  LIBRARY  (SYS9.TCTAL.  PLlDEIO)  */ 
t INCLUDE  r’  XTDCL ; 

/*  END  OF  EINCLUDE-D  DECLARATION?  */ 


/*  IOAPEA  FORMATS  FOR  SITE,  LT  N K , TRUNK,  AND  CIRCUIT  MASTER  FILES  */ 
/*  ("'HESE  STRUCTURES  ARE  BASFD  SO  '''HAT  THEY  CAN  OCCUPY  THE  SAME  */ 
/*  STORAGE  AS  I CARE A.  IOAPEAP  MILL  BE  SET  EQUAL  TC  ADDS ( IOAR E A)  . */ 


C E CL  AR  £ 

1 IOSITE 
2 RMSICTRL, 

3 GEOLCC 
3 FACILITY 
2 RMSISTCT 
2 RMS I FLAG 
2 RMSICCRD 
2 RMS  I NUMB 
2 RMSIFILL 

1 IOLINK 
2 RMLKCTRL 
2 RMLKFLAG 
2 PMLKTPAN 
2 RMLKCCDE 
2 RMLKFILL 
2 LI NKSITE1  , 

3 RMLKFELC 
3 RMLKEFAC 
2 L INK  SITE  2, 

3 FMLKTCLC 
3 RMLKTFAC 

1 IOTRUNK 
2 RMTRCTPL, 

3 TRUNK_II> 

3 5 A 

2 SMTR^LAG 
2 KMT  UPC  AT 
2 RMTRTCA? 

2 RMTRB AND 
2 RMTRAVAL 
2 RMTRFILL 
2 TRUNK  SITE1 , 
3 SKTRFPLC 
3 SMTEFFAC 
2 T RUNKSITE2 , 
3 RMTFTOLC 
} RMTRTFAC 


BAS  ED  ( IOAPEAP)  , 

CHARACTER  (8)  , 

CHARACTER  (3)  , 

CHARACT ER  (2)  , 

CHARACTER  (1 ) , 

CHARACT  ER ( 15)  , /*  LAT  I 
C HAH  ACTSR  (3)  , 

CHAPACTEP  (U)  , 

3 AS  ED ( 10  AFF  AP)  , 
CHARACTER  (3)  , 

CHAPACTEP  ( 1)  , 

CHARACTER  (3)  , 

CHARACT  ER  (2)  , 

CHARACTER  (2)  , 

CHAPACTEP  (3)  , 

CHAPACTEP  (3)  , 

CHAPACTEP  (8)  , 

CHARACTER  (3)  , 

EASED (IOAPEAP)  , 

CHARACTER  (6)  , 

CHARACTER  ( 1)  , 

CHARACTER  (1)  , 

CHARACTER  ( 1)  , 

CHARACTER  (4)  , 

CHARACTER  (S)  , 

CHARACTER  (3)  , 

CHARACTER  (4)  , 

CHARACTER  (8)  , 

CHAPACTEP  (3)  , 

CHARACTER  ( H ) , 

CHARACTER  (3)  , 


E ( 7)  , LONGITUDE  (8)  */ 
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L1  AG  F.  C ( 10  A I'  E A P ) 


1 rociacuiT 

2 RMCTCTRL, 

> CCSl)  CHAR  ACT  PR  (3)  , 

\ S A C HA E AC  TF  F ( 1)  , 

2 RMCTFLAG  CHAR  ACTED  (1 ) , 

2 RMCTR3TP  CHAR  ACT  FR  (2)  , 

2 PIC  m AP  l.  C HA  1-’  AC  TP  R (1)  , 

2 RfiCTI  DEN  CHAR  AC?  EE  ( 1)  , 

2 RMCTXEEF  CHARACTFR  (p)  , 

2 R ACT FILL  CHARACTER (E)  , 

2 C IPCM ITSITE1  , 

J RMCTFRLC  C11ARACT  ER  (8)  , 
5 '■  M 0 T F F A C CHARACTER  (3)  , 

2 CIRCUITS  IT E2, 

X RHCTTOLC  CHARACTER  (H)  , 

J RMCTTFAC  CHARACTER  1 A)  ; 


/♦  I OARE A FORMATS  FOR  VARIAPLE  FILES  */ 

EICL A°  h 

1 I n K V P L HAS  ED  (10ARFAF)  , 

2 R VTLRMTR  CHAR  ACTF.P  (7)  , 

2 RVTLRMLK  C H A R ACT E R ( S) , 

2 R VTLE'ISl  CHARACTER  (11  ) , 

2 RVTLTOLC  CHARACTER  ( 1 1)  , 

1 TORVCT  OASED (lOAREAP) , 

2 RVCTRHCT  C IIA  RAC  TF  R ( l))  , 

2 RVCTR1TR  CH  Ah’  ACT  ER  (7)  , 

2 EVCTRMSI  CHARACTER  (1 1 ) , 

2 R VC”TCLC  CHARACTER  (H)  ; 

EECI.  ARE  IOARFAP  POINTER;  /*  = ACDR  { 10  AR  E.A)  ♦/ 

/♦  FOR  TEMPORARY  ST  OR  AO  F WHEN  I O A R F A IS  REsJUIREP  FOP  ANOTHER  ACCFSS  */ 
CECLARE  IO.SAVE  CHARACTER  (200)  ALIGNED; 


/*+******«**♦**+*+++*+*****♦***+**♦♦> 

/♦  FLFNLNT  LISP  DESCRIPTORS  FOR  FAST 

/ * *.***«*♦.,«* *«*«<. ♦**♦«***♦*♦***♦♦*». 

DEC  I.  ASF 

I'M  S T_  l'L  CM  CHARACTER  (S2)  INITIAL  ( 

• R M S I C T R L E M S T S T CT  R MS  I FL  AC5FMS  I CO  E CRMS  INtlM  HUMS  I FILL  END.  • ) , 


R M L K_  F L H M CM  A R ACT F R ( 7b ) INITIAL! 

• PMI.K  CTRL  RML  K FL  A GR  MLK  TR  A NRM  LKCOPFR  M l KFI  L LR  M L K E NI  C R M LK FF  ACR PI  LKT  CLCRNLKT  F 
ACFNP.  • ) , 


RMTF_FLEM  CHARACTER  (92)  INITIAL! 

• RM  T RC'  I LR  MT'TL  AGPMTR  RCA  TRMTT  TC  A I’R  MT  R b A N D RMTRAVALRflTRFILLFNT  RFRLCRMT  RFF 
AC  KMT  I:  T C LC  R MT  RT  F AC  E N D.  ' ) , 


R M C”_  F.l,  EM  CHARACTER  (9  2)  I NT  TT  A L ( 

• F 1 C T CT  R L R M C T FLAG0  M CTK  STPRMC  TP A P I R MC  TI  DC  N R MCTX  KEF  R MCT  FI  LL  PMCT  FRLCRMCTFF 
ACR MCTTOLC  RMCTT  F ACFND.  ')  , 

FVTL_"LEM  CMI  ARAC”  F R (3o)  INITIAL! 

• RVTLFM rFRVTLKMLKF VTLRMSIR VTLTO LC E ND . •)  , 

RVC?_FL!IM  CHARACTER  ( 16)  INITIAL  ( 

• R VC  I R MCT  PVC'r  H MT  S RVCT  R MS  I RV  CTT  01 C 1-  N D.  ')  , 

R M I.K  _ L DCS  C 11 A R A CT  MR  ( 4 U ) INITIAL! 

• RMLKCTRLRMLK  FRI.CP  MI.K  FPACKK  LK  TOUT  R MLR  IF  ACEND.  ' ) , 

P MT F_ LCCS  CHARACTER (4  4)  INITIAL  ( 

• FMTRCTE  I R mt  R F RICH  MT  R F L'  A C K MT  RTOI.C  RMT  RT  T A C EN  D.  •)  , 

R.1CT_L0CS  CHARACTER  (44)  INITIAL! 

•RMC  TC’’’Rl.RM  C^FELCPMC  IFF  ACR  MCTTOI.CR  MCI  TRACE  ND.  • ) ; 


/*  F I !i  L"  : 
CtCL AR  T 

1 


■OR  IIS  F ! ■'  * S INPUT  SPECIFICATIONS  ♦/ 


T *10  AT  A , 

1 ' : I T P { 1:  .')  , 
I KM.SICTFl, 
il  OP  TT.OC 
4 FACT  LT  l'Y 

\ rmsistct 

I RMS  I FLAG 
I HMOICOPD 
I I,  MS  r Ml  Mi! 

I 1!  M P.  I F IT.  L 


C1IAK  AC  TPS  (H)  , 
C II  A R ACT  I P ( J)  , 
CHARACTER  (2)  , 
CHARACTER  l 1)  , 
CHARACTER  (1r>) 
CHARACTER  ( ))  , 
CHARM.  (7)  , 


/*  LATITUDE  (7),  LONGITUDE  (H)  */ 


2 LINK, 
i RMLKCTRL 
I RMLKFLAG 
l RNLKTRAN 
I RMLKCODS 
I II  ML  RE  I1.L 

?.  TR  UN  < , 

> RMiaCTEL, 

4 T R 1 1 N K_  I D 
4 SA 

) E MT  IF L AO. 

I RMTRMCAT 
I RMTRTCAP 
I RMTRHAND 
I R MT  I A V A L 
) R MTU  FILL 

2 CIRCUIT, 

I RMCTCTRL, 

4 ccsn 

4 :>  A 

J RMCTFLA  G 
1 R N C T rt  S T P 
? RMITRAPL 
i RMCPIDEN 
I RMCrXKEK 
1 RMC-FIU 


CHAR  ACT  PR (S) 
CHARACTER  (1) 
CHAR  ACT  EH  ( I) 
CHARACTER  (2) 
C If  AKACTEK  (2) 


CHAR  ACT  ER  ((' ) 
CHARACTER  (1) 
l I!  Art  ACT  PR  ( 1) 
CHAR  ACTKP  (1 ) 
CHARACTER  (4) 
C II A RAC  TF  R (r>) 
CHARACTER  ( 1) 
CHARACTER  (4) 


CHAR  ACTE 
CHAR ACTE 
CHAR  ACTE 
CHAR  ACT  ?. 
CHAR  AC  TP 
CII A I ACT  P 
CHAR  AC  TP 
CHAR  ACT  S 


H (H) 
R(1) 
P (1) 
R(2) 
P (1) 
R(1) 
P (H) 

R(4) 


2 II  AN  G R_1.0CS  , 
F'  l.C 

p f a : 

TOLC 

TFAC 


CHAR  ACT/R  ( H)  , 
Cil  V ACT  E R ( 1)  , 
CHARACT'' '■  (H)  , 
CII. AR  ACT  2 R ( 1)  ; 
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,*♦♦*♦♦*♦***♦♦♦♦*/ 

/ ♦ Kou r in  c,  i.  is r */ 

/♦****♦♦*♦♦♦♦♦♦*♦/ 

nciRK!  1 ROUTE  CHAIN 

ha : :r»  (v  ptu)  , 

2 15  KEY 

CHAR  A Cl  fV  (7)  , 

1 rsitfi 

CHAR  AC?  1’h  ( 1 1)  , 

2 N s i r i' 2 

C H A 7 A 0 1 H'f  (11), 

2 N ° X ? R 

PCI  NT  Eh, 

R P T K 

POINTKH , 

L ASTK 

PO  IN  TKP  , 

ROUTES  PEC 

PC  1 NT  r 1< ; 

«*♦*♦**♦<♦»♦*♦*>>♦**/ 

/*  DELETION  LISTS  */ 

/*♦♦♦»*♦*♦♦♦*♦♦*♦**/ 

I E CL  A ' 1-1  'vpi-'llNK 

DA  SEP  (DTP'M  ) , 

2 PTKDY 

CH  A ! ACT  Eh  (7)  , 

2 NFXTDT 

P 0 I NT  F F , 

1 DC  I PC  11  IT 

DA E ED  (DC PTE ) , 

2 DC  KEY 

CHAR  ACT  EP  ('*)  , 

2 NEXT  PC 

PCI  NT K H, 

DTP  TI5 

PUI  N I'PP  , 

DC  DTP 

PCI  NT r h , 

ni;:._TR_P'i  s 

DU IN  TER , 

PEL  CT  H'P 

PCI N" E R ; 
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/*  MAIN  P HO  C F S S INI!  VARIABLE:;  */ 

1 EC  L A KF 

REQUEST  CHARACTER  (1)  , /*  »,  A ♦/ 

KS  JllFS  P_  LV'V  PL  CHAR  ALT  FF  ( 1)  , /♦  C,  T,  L,  S */ 

ADDCHANOF  CHARACTER  (1)  IN  IT  I AL  ( • » • ) , 

CELETF  CHARACTER  (1)  I NI  TI  AL  ( ’ - •)  , 

RK  KOI)?  C CHARACTFR  (1)  IN  IT1  AL  (•  • ' ) , 

C1IANOELOC  CHARACTER  (1)  1 N I TI  AL  ( "*  ')  , 

NEXT  CHARACTFR  (1  ) INITIAL  ('  '), 

/*  ARGUMENTS  M SI  I DRu'l  TIN1  INPUT  */ 

SSPAR A ICE  CM  A a ACT ER  ( 1)  , 

I T VM  CHARACTER  (1  VARYING, 

/♦  THIS  IDENTIFIER  IS  HSIP  BY  SI)  GROUT  INF  TNP'’•,'  ONLY.  IT  MUST*/ 
/*  B2  C.ICPAL  BECAUSE  IT  PASSES  INFORMATION  FROM  ONE'  */ 

/*  INVOCATION  OP  INPUT  TO  THE!  NFXT.  */ 

NFXT_Sc  PAR  AT  0«  CHAR  ACT  '1  ( 1)  I N IT  I AL  ( • V ) » 

V AL  I P_R  Ev)_  ' FP  CHARACTER  («)  I N 1 TI  AL  ( • d- * \ •)  , 

V ALII1_END_SEP  CHARACTER  (ti)  i NI  TI  A I.  ('A- #*,  ; • ) , 

KFY  CHARACTER (8)  VARYING,  /♦  CCNThCI.  FOR  ♦/ 

/*  CURRENT  RFC  HF  ST  */ 

/*  WO p K FIELDS  FOR  ENDPOINTS  CF  CURRENT  */ 

/*  CIFCOTT,  TRUNK,  OR  LINK  ♦/ 

WKSITI  CHARACTER!  1 1)  , 

W N S I t F 2 CHARACTER  (11), 

DFIELD(t)  CHARACTFR  (IS)  , /♦  DATA  SUBEIEI.DS  */ 

28  CH  ARACTFK  ( 1)  ; /*  iB  (DEFAULT  FL  AO)  ♦ / 


nci.  ae  h 


/*  n a :s  * 


0 EC  l.  A E 


UP 

DAT 

F S 

r t v ( J ) 

HIT  ( 1 ) 

9 

UP 

’ A 7 

FL 

INK 

H n ( i > 

9 

11  p 

D A ” 

FT 

SUNK 

UlT(l) 

9 

UP 

DAT  FC 

iecu  rr 

HI  1(1) 

9 

PE 

1 - T 

ONLY 

PI  1(1) 

INITIAL 

(' 

•*\  t 

2)  , 

G \ 

RUC 

C L 

HIT  (I) 

INITIAL 

( ' 

* * 

P)  , 

FO 

c 

BH(1) 

IN'  UAL 

C 

rs  • 

H)  ; 

PA 

7 E 

liJTV 

CMAE AC 

TER  (17)  , 

/ 

♦ 

PRI 

i'  a ; k_  mi  f* 

M S(?C 

MSG  _COll  NT 
( P V l S 


l' I NAXY 
H IN  A.!  Y 
JIN  AH  Y 
HI  NARY 


" IX  ED ( IS, 
”1  XKI>  (IS, 
E ! X E D ( V'  , 
FIX  !T(  IS, 


' ) 
< ) 
< ) 
) 


TED 

INITIAL  ( 1)  , 


..'N  EACH 
/*  FOR 
/ * S T K T 


1 N 1 T1  AL  ( 1) 

INITIAL  (0),  /*  * MSGS 

/*  CIRCUIT  AND  TRUNK 


PAGE  */ 

PAGE  HEAPING*/ 
CCL  FOR  MSGS*/ 
>=  WARNING*/ 
CLEANUP  */ 


PFCLARF  /*  RIOT 


ATTEMPT  COUNTERS  */ 


ADPCUANGES 
DELE  i'ES 
:■  KROUI  ms 
CM  AN  I EL CCS 


HI  MANY  V I X IP  (IS,  ' ) I NT  TI  A 1 (S ) , 
HI  NARY  tUiniS,')  INITIAL  (o), 
‘.UNARY  E 1 X E P (IS,  ( > ) INITIAHO), 
IUNARY  FIX  FT  (IS,')  IN  TT  I AL  ( ) ; 


r I CL  ARE  ItlTPIC 


!’  :C  T;i  H K « 


‘i  • 


'OK  FORMATTING  COUNTERS  */ 


■'>'  ARE  "PAR  AMBERS  " THAT  CONTROL  INPUT  RECOUP  PROCESSING  ♦/ 
OUTEU,,‘  LISTING.  IDEALLY,  Tlf'Y  SIICUIP  HE  SPECIFIABLE  AS  */ 
‘ UTI  ON  -T I PE  Orr  TONS.  SEE  SUBROUTINES  PR  IN  T_  IN  PUT  ANP  */ 
THAR.  ♦/ 


Pf CL  A R F 
PEC l ARE 


L IN  MS 

H I N A R Y 

El  XEP  ( 1 S f. 

’) 

; ni 

U HE  PCS 

HI  N ARY 

V I X F P ( 1 - , ' 

) . 

RHFHVG 

IN 

0 ' N A R Y 

FI  XEP  (is/ 

) , 

U'l  FEN  P 

PIN  ARY 

FIXED  (IS,' 

•) , 

I NX VI Cl 

- N 

E I N ARY 

F IV  VIM  V‘, 

) , 

INK  EC* 

BINARY 

FI  XKP  (IS,. 

) . 

COL* 

HI  NARY 

F IX  IT  ( IS, 

') , 

/ * 

COLS  VC 

H l N A a Y 

FIXED  ( 1 S , \ 

’•)  ; 

/♦ 

I V I EC  ( 

1: 

11)  CUM 

(HP)  ; /♦ I E " 

p 

PC  l 

l NKFV_ 

l? 

VI.  UIN.ApY  F'XVEl 

is 

) 

'I  A 1 (7S)  , 


STRT  COL 
ST  1U  CC1 


FOR 

FOR 


IN  RFC  I */ 
1NRFC  */ 


...CHANGE  IUOCK 
INITIAL  (P  ) ; 


■RUCTU  RE*/ 


x-us 


/**************  *«,»»,»*»/ 

rK'LASf  /*  built-in  functions  ♦/ 


(\rms, 

CHAU, 

DATE, 

ni  <1, 

r T V IUrl, 

t npex  , 

L Crll, 

LI  NEMO, 

'I  AX  , 

NULL, 

PL  IR FTC , 

s r:u  Nc , 

SlinSTR, 

Tt  'IK  , 
unsp  fc, 

VFRIIY)  PUILTIN; 

/♦*♦***»** / 

/*  KILTS  ♦/ 

/********* / 

DECLARE  SYSIN  F II.  E STF  KA  1 INPUT, 

SYSrUIN"  K I L r ^TRFAM  PH  NT  ; 

'*  FILK(CCHOKM  appears  only  in  subroutine  o ardage_ccllect  •/ 

/**************************  . 

/*  USFR-PKFI  NED  CONDITION  */ 

/**************************  / 

DECLARK  TOTFKR  CONDITION; 


3-119 
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/*  I.  PRELIMINARIES  */ 


/*  (1)  PREPARE  PRINT  FILE  */ 


/*  (LET  SYSTEM  HANDLE  UNORFINEDFI IF  CONDITION.)  */ 

OPEN  FILE  (SYS  PHI  NT)  LI  N ES  It  E ( 1 3 2 ) P A ( F SI ZE (L IN ES  ) ; 

/*  PACE  TURNER  AND  HEADING  PUNTER  */ 

ON  rN  CPAGE  (SYS°R  INI) 

B FG I N ; 

PUT  FILE  (SYSPRINT)  EDIT('DBUTII  'HVERSICN  AND_CATE, 

D AT E_ A ND_T I ME  , ' PAGE  ' , P A G E NUM) 
(P  AGE,  A { 12)  , COL  ( b 1)  , A ( 1 7)  , 

COl  (112)  ,A  (5)  ,F  (U  ) ) ; 

PUT  FILE  (SYSPRINT)  S KIP  (2)  ; 

P AGE_NUM  =PAGE_N  UM  ♦ 1 ; 

END  ; 

/*  INITIALIZE  DATF  AND  TIME  AND  PREPARE  FIRST  PAGE  */ 

/*  THIS  BLOCK  INITIALIZES  THE  PATS/TIM?,  STAMF  IN  */ 

/*  THE  FORMAT  ♦/ 

/*  DD  MON  YY  HH:  MM  • */ 

BEG  I N; 

DECLARE  1 STAMP,  /*  DATE  AND  TIME  STAMP  */ 

2 (Y, M, D, HR, MIN)  CH AR ACTER  (2 ) , 

MONTHS  ( 1 2)  CHARACTER  (.1)  I N IT  I AL  ( • J AN  ' , 

•FEB ' , 

' MAR'  , 

' APR  • , 

• MAY'  , 

'SUN', 

' SUL'  , 

'AUG', 

' SEP'  , 

'OCT  ' ,' 

• NOV’  , 

'DEC')  ; 

STRING (STAMP) =DATE | | TIME; 

DATF_AND_TI’1E  = D| | • • | | MONTHS (M) | | ' ' | | Y| | ' • | | HF|| ' : ' | | F 

FND; 

SIGNAL  KNDPAGE  (SYSPRINT)  ; 


V 


/*  I.  (-')  MI  SC  "'I  L A NEOUS  INITIALISATIONS  */ 

/*  input  processing  and  output  listing:  */ 

/*  (inmiY,  THIS  SHOULD  U E SPECIFIABLE  AS  AN  EXECUTICN-TIMF  */ 
/*  OPTION.  THE  V ALU  FS  SFECIFIFC  HERE  SHOULD  PE  THE  DEFAULTS.*/ 
/*  CURRENTLY,  "MS  INPUT  MUST  PE  T N FIXED  LE  NOTH  EIGHTY  - BYT  F.  */ 
/*  RECORDS.  ONLY  COLUMNS  1 T UK  Oil  Gh  72  A R F SIGNIFICANT.  */ 

/*  COLUMNS  7 i THROUGH  HI  ARE  IGNORED  AND  CAN  BE  USED  FOR  */ 

/*  SEQUENCE  NUMBERS.)  ♦/ 

PUFBFGIN  1; 

BUFF  NT  =12; 

Bit  EPOS  = PU  F *'N  B ; 

I NR EC LE  N -B  ; 


INS  EC* 

- 1; 

C 0 L * 

= i : 

COLE  EC 

= 7; 

MSGC 

-OLE  FC  ; 

/*  <-"  + / 

/*  ALL  7, 

E LO  CY IF  * 

/ 

U NS  p F 0 

H)  -1  ""  if  D( 

J ' 1 P ; 

/*  LIST 

PROCESS  I N .. 

I’OTNTFKS 

ROUT'SrrC  - Nil  LI  ; 
PtL_?R_rTR  =N  Ul,l. ; 
P E L_  CT_  PT R= NULL; 


/*  PFCCFSS  PARAMPTPF  */ 

Ir  LENGTH(PARM)  > THEN 
DO; 

CAM  .MSG  ((  ,'  PARAMETERS  SPECIFIED:  ' | | EARN)  ; 

IF  I NDr’X(  P ARM,  'GARECOL')  -»  = n THEN  GARPCCL  = M'B; 
END; 


/*  ESTABLISH  AP PRESS  ABILITY  FOR  10AREA  FORMATS  •/ 
T0  A R i AP  A P UR  ( I 1 A E FA)  ; 


■■PIPPBRPPP 


7"  ** 


/*  r.  ( 1)  FST  A :3T.  ISH  COMM  t'N  IC  A Tl ON  S WITH  TOTAL  */ 

/*  7CTERR  -- 

/*  AN  U Ni’X  r rCTEP  STATUS  WAS  RETURN  ED  HY  TOTAL.  DISPLAY 

/•  MESSAGE  ABOUT  THE  STATUS  KETUFN’’0  ANP  ABOUT  WHAT  WAS  BEING 
/*  A TmF  M PTrlD.  FLUSH  THE  INPUT  ST  R r A v,  PRINTING  THE  REMAINDER 
/*  THE  USER'S  INPUT.  Til  FN  , WRAI  UP  IMF  IRCGFAM. 


OF 


*/ 

♦/ 

V 

*/ 

*/ 


ON  C C NDI TT  ON (T 
BFGIN ; 

CALL  MSG 


OTERR) 

( ,'****  T C 1 


: FI1NCT- • | | FtINCTI  | ' , ST  AT  US  = ' | | ST  ATHS  | | 

FTLEIi  = • | IFILEID  | | ',  R FFER  = ' | | REFER | | 

' , LKPATH-' | | LKFATHI | ' , C C NT HCL= • | | CCNT ROL) 
CALL  MSG  (1(.  , 'UNEXPECTED  STATUS  P FT  URN  FROM  TOTAL.'); 

/*  SUBROUTINE  MSG  FLIISHFS  I NPtll  STREAM  AND  TRANSFERS  ^ C ♦/ 

/■*  TERMERR  AS  A RESULT  OF  THF  TERMINAL  ERROR  CODE  16.  */ 

/*  < DE  DUG  C OD  E > "IIS  SHCULP  NOT  HAPPEN  ♦/ 

CALL  M SG  ( 1 2 , • UN  EXP  ECTEP  ? p TUP  N FROM  MSG  TO  TC  TERR.'); 

GO  •"C  TERMERR; 

!ND; 


/*  PREPARE  TOTAL. 
/*  TERMINATION  IF 
F UNC  T = 'TOTAL ' ; 

task  in='  rnuriL' ; 
PP  MOD= ' RFBTA1 ' ; 
CALL  PPIO  (B,  ')  ; 

E UNC  T = OPl:‘  NM  ; 

T F IL  ES  ( 1 ) ='  RM  ST'  ; 
TFI LES ( 2) = ' RMLK ' ; 
T FILES  (3  ) =•  1MTR'  ; 
T F II.  ES  ( U)  = * R M C ' ; 
TFI  LF S (r.  IsJRVTL'  ; 
TF  IT.  ES  (6)  1 VCT'  ; 

CALL  DE:0(4,")  ; 


LET  STATUS_ANALY5IS  ROUTINE  (VIA  DBIO)  HANDLE  */ 
"TOTAL " OR  "OPEN M"  F A 1 IS,  */ 
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/*  I.  (U  ) PBL'IARE  IN  PH?  FILE  */ 

ON  'TND'tF.TNKPFILE(SYSTN) 

Li  EG  T N ; 

LO  ?=*  V B; 

Sr  I AKATCR=  • • ; 

NFY  r_.IEPAEATOS  = ' • ; 

CALI  M S>  G ( 4 , • INCOMPLETE  OK  NO  DO  STATEMENT  F’OK  FILE  SYSIN.  •); 
/*  EPOCEEn  WITH  POSSIBLE  GARBAGE  COLFCTION  */ 

EN  D; 

/♦  ESIFILE(SYSIN)  IS  HANDLED  IN  SUHRCUIINE  INPUT  */ 

OPr  N FI  Lc  (S  YSI  N)  ; 


/*  :;Vj  START  PROCESSING.  FIRST  INPUT  DATA  I 
/*  D r !•’  C R 7.  ENTERING  THE  MAIN  PROCESSING  LOOP. 

CALL  IS  O (^ , • •); 

CALL  INPUT (SEPARATOR,  ITEM)  ; 


'EM  MUST  DE  REAT  */ 

V 
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/*  III. 


CLEANUP  */ 

* * * ♦/ 


CALL  MSG  ' ) ; 

CALL  MSG  ( ( 1 1 1)  1 * ’ ) ; 

CALL  MSG  ('  , » •)  ; 

/*  DELETE  FLAGGED  CIRCUITS  AND  TRUNKS  */ 

EUNCT=DEL_M ; 

FI  LEI D = • RMCT  • ; 

ELML IS7=' R.MCTCTRLEND. ' ; 

CALL  MSG (', 'STATUS  CHECK  FOR  DEL  FT  ED  CIRCUITS:'); 
*_DELS=  ; 

DC  DCPTP  = DFL  _CT_?TR  ? FFEA  T NEXTDC  HHI  IE  (DC  PT  R-«=  NULL)  ; 
CCNTSCL=DCKEY; 

CALL  DBIO  (7,2)  ; 

IF  ST  AT  US=  • I MDL ’ THEN 

CALI.  M S C ( E , ' ' | | DCKF  Y | | * PE-ADDED'); 

ELSE  IF  ST ATUS=  OK  THEN 
DO  ; 

CALL  MSG  C , * • | | DCKEY  1 | ' DFLETFD  <--'); 

* DEL  5=  * BELS+1; 

END  ;~ 

ELSE  IF  STATUS-.  = ' tlRNF  • THEN 
SIGNAL  CONDITICN(TCTERE)  ; 

EN  D; 

CALL  MSG  (••  ,CH  AP  ( *_QELS)  | | ' CIFCUIT?  DELETED'); 

E IL  EID= ' RMTR ' ; 

FLVLIST= ' P MCTCT  F LEND.  • ; 

CALL  MSG  (",' STATUS  CHECK  ffOfi  DELETFD  TRUNKS:'); 

#_DE  L3  = ''  ; 

DO  D TDTR  = DEL_T  R_  FT  P REPEAT  NEXT  DT  W HIL  E ( DTPTR-»=N  ULL)  ; 
CONTPOL  = DTKEY  ; 

CALL  D3TO  (7 ,2  ) ; 

IF  ST ATUS=‘ IM DL • THEN 

CALL  MSG  ( ~ , • ' | | PT  K FY | | 1 RF-ALCED*); 

ELSE  IF  ST  A TUS=OK  THEN 
DO; 

CALL  M SG ( 0 , ' ' | ) DIKE  Y | | » DFLETFD  <--'); 

#_DELS=  #_DELS  ♦ 1 ; 

EN  D; 

ELSE  IF  ST  ATHS-»=  ' M PN  F ' THEN 
SIGNAL  CONDITION  (TOTERR) ; 

END  ; 

CALL  MSG  (\ CHA  ? (#_D2LS)  | | • TRUNKS  DELETED’); 

CALL  MSG  (r  , ' •)  ; 


IF  GAEBCCL  THEN 

CALL  GARBAGE  COLLECT;  /*  DELETE  UN  USED  LINKS  AND  SITES  */ 

ELSE 

CALL  MSG  ( ' GARUA  GE  COLLECTION  NOT  PERFORMED  CN  LINKS  AND  SITES. 


3-126 


/****♦♦  / 

rE  RME  ••  R : 

/*♦♦♦♦*/ 


/*  ' F C IN'"  VOL  1'":  ACHE'S  Till:.  POINT  BFCftltSl  OK  A TERMINAL  ERROR , */ 

'*  .'IIKN  c:;c:il’,s  A *10  TRUNKS  K1AO0K0  FCR  OfclKTICN  H AV  K NOT  PEEN  */ 

/*  DEL ’..TO  \NP  OA'O'AOP  00 ! I.'-'C  I T ON  HAS  NOT  PFFN  PERFORMED  ON  */ 

/♦  s r t p ; and  link:.,  concision  (Toterr)  has  informed  the  user.  */ 


/*  SFT  .! 

Cl!  S 

T E 1 R E T 

’1  H N 

C C P F 

♦/ 

CALL  CLI 

ETC 

(KC)  ; 

/*  REPORT  ST 

A 1 T ‘ : T C 

S * 

/ 

/*  MAKE 

S'.  ’•* 

T.I FR  r 

I S 

'NOHO 

li  R 

(10  M 0 

N CLIRRF 

NT  paoe:  * 

/ 

l v LI  NE  N 

c I SY 

■ p Rl NT) 

> 

L I N ES 

-14 

T II  FN 

S ION AL 

EN  L'P  A 0 E ( 

s 

YSPR  TNT)  ; 

C AI  1.  MSG 

(\  • 

’)  ; 

CALL  v; 

r , • 

• X . 

) * 

CALL  nso 

<v 

N IIN  I’.’-' 

OF 

0"  \ 

7 1 O 

NS  AT- 

TV MIT  RIO 

: ')  ; 

nr.  pic  • 

a on 

CM  YN 

• 

CALL  "SO 

( ‘ , • 

.0  » ' 

1 

IOUTPIC)  ; 

op  V”  : i * 

r.  el 

!'1  IS; 

CALI  M SO 

- = • 

1 

1 0 UTP IC) ; 

1HTT.  ip  * 

RSR 

oUT’-s; 

CALI  MSO  (r , • « • I I OUTFIC)  ; 

OPT  PIC  # CiUNO.’lCCS; 

CALL  MSO(  • X ' '||  OMTPIC)  ; 

OPTPI  c * V'ncil  A NOES  ♦ * _ 0 H l V?  ES  **  _ R FR01IT  RE  ♦ * _C II AN  GELOC S; 

C A I I.  .*S0(','  TOTAL  = • ||OHTPIC); 

CALL  MEG (0,  • ')  ; 

on-.  PI  C N S0_ C CP  N'  ; 

CAI’.  M S 0 ( ' , ' N 111  P.  FR  1 F ERROR  OR  WARM  NO  MESSAGES  = ' | | OUT  TIC)  ; 

CAl  1.  MSO  (*,'')  ; 

OUTFIT  R C; 

CALL  ISO  ( , ' T ROC  ESS  1 NO  " I V"  i N AT  l R FT  (I  RN  CODE  ' ||OtITPTC); 

C ALL  MS  (I  ( , • • ) ; 

/*  CTOS'-  TO  T A1  FILES  AND  RELEASE  TOTAL  */ 

F PNC  1 CLi  S 1 ; 

CAI  L CP  TO  (4,  ' ) ; 

epnc  t-p'-'c'L'  ; 

i A!  1.  PRIO  (4,  ) ; 


/♦  CLOSE  OTHER  FILES 
CLCSF  n 1 " ( Y S>  L N)  , 

K II.  •’(  SY  SI*R  I NT)  ; 


'/ 


-*»*  10  0 1 CAL  ’•NO  OK  PR  10  R A M . T N T K R N A L rHOCEDHKFS  KCllCW.  ♦*♦/ 
CP " STATIC  STRUCTURE  OUT  LINE  AL-CVE.  ♦♦*/ 
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* : I.  R0U7TN  F A C_C  I '-V  III  T */ 

/*  */ 

* nix;  sinROMTlNP  PH  (FORMS  Till'  ACTION  STSCIFIKD  PY  A dC  REQUEST.  V 

/*  ’ F M. » V\:r  .,o  is  I-CIIND  W I I’ll  TIIF  SPECIFIED  CONTROL  KEY  OR  TK  A ♦/ 

/*  Co:.  ! • H KO  'IN  ^ HIT  CONTAINS  NO  ITNKAOF  TO  VARIABLE  RFCORDS,  */ 

* IT"  N 1 • \ • ’ . I ! M ^ t)  ‘HAT  "'HI'  USER  IS  POINO  AN  "ADP."  ROUTIN'..  */ 

'*  . I o'  1 A ' TON  HlSI  1SK  S'1  "•Cl  I’ IMP.  IF  THE  “ASTER  RECORD  IS  ERE-  */ 

'*  CM  «l  'll  I'NKAIS  *.*  h V N ONLY  A "UIANC.F  DATA"  IS  PERFORMED  AND  */ 

* NO  "oil  I'  N 1 AY  UK  SPECIFIED.  */ 

/*  * / 

/*  \C  l>'  'll  V HAS  NO  !'  A !•  \ M PI  P i-'  S , All  DATA  ARK  C FT  AIN  ED  FROM  */ 

/*  : t S.Al  V A !\  i API  ES  DECLARED  ’N  TIP  MAIN  PROCEDURE.  */ 


Ai  _ C » 'CH  I !':  D'.i  U' 


I'll  ..A'  i KEYC  C.iAl  ACER  ('» ) ; 
i EYC  S".  IN  *.  ( T N OAT  A . ' 11  CIV  1 ' 1.)  ; 

/♦  ch  -vf  : ic ; vt  rnr;  'm:  of  circuit  recced  ♦/ 

FDNCT  ’AP"; 

MI  " I P • ' I or*  ; 

CiN'I.CL  N " Y C ; 

•'l  F I.  IS  "P'T  '-'I.  1;  /•♦  ALL  NON-LI  NKi’ATH  i NEC  IN  CIRCUIT  RECORD  */ 


STANDS  • 1RNP*  Til KN  /*  MA  S1KF  nU'ITl  RECORD  NOT  FCIINP  */ 
r>0 ; 

ST  AT  US  = C K ; 

/*  FOB  AN  ADD,  USER  MUST  SPECIFY  TRUNKS  USED  PY  N FW  CIPCIIIT  ♦/ 

: V ?<  HI " V SP  EC  - N II I L T H F N 
DO; 

C A L MSO  (H,  • CIRC  HIT  ' ||KFYC|| 

• NO'”  A D D F D . NO  ISUNK(S)  SI'ECI  FI  FD.  • ) ; 

RETURN; 

E N D ; 

/*  THE  S PEC  I FI  FD  TRUNKS  MUST  T K AC  E A CONTINUOUS  PATH.*/ 

/*  FUNCTION  Sour  E_"  RACK  RFTU1.NS  THE  VALUE  TRUE  IF  */ 

/*  VUE  PATH  TS  TR  ACHAMI  F AND  l;  FT  UP  NS  THE  FNDSITFS  AS  ♦/ 

/♦  ARli  U ME  NTS.  */ 

IF  -.ROUT -:_TF  ACE  (W  KS  IT  K 1 , W KS I V X 2)  THEN 

DO;  /*  USER  HAS  SPECIFIED  BAD  SET  CF  TFUNKS  */ 

CALL  MS  0 (S,  'CIRCUIT  ' | | K FY  0 | | 

' NOT  ADDED.  SPECIFIED  TRUNKS  PC  NOT  TRACE  A 'll 
' CONTINUOUS  PATH.  ' ) ; 

RETURN ; 

E N D ; 

/♦TRUNKS  CM  rCK  ED  OUT.  MOV'-  DATA  TO  IOARFA,  API'  CIRCUIT  TO  RMOT.*/ 
IOC  IE  CO  I " - IN  DA  T A . C IRC  01  T , 3 Y NAME; 

IF  IOCIBCUTT.  KMCTFLAO-  1 • THEN  IOC  I RCU  IT . R M CTFL  AO  = T,  fi;  /*u  [,  F A UL  T*  / 

SIP.  IN  S.  (DC  IFCUIT.C  IRC  Di  TSI  "SI)  WKSITS1  ; 

ST  ST  NO  (I  OCX  RCU  IT.  CIRCUITS  IT  ) -WKSITF.I; 

FUNCT- A ? D_ M ; 

FILE  ID  * i M 0 T' ' ; 

CON" MO I - < E Y C ; 

EL  ML  1ST  - R MCI  _ HI.  EM; 

CALL  DDU  (/,.’);  /*  WRI  TE  'III''  NEW  CIRCUIT  MASTER  RECORP  ♦/ 

IF  STATUS-.  OK  "MEN  S ION  AL  CON  D 1 T ION  ( TOT  ERR)  ; 

/*  DISPLAY  M ESS  A OKS  ADOPT  ADDITION  */ 

CAM.  MM  ('  ( r , 'CIRCUIT  ' | | KK  YC  | | ' ADDED'); 

/♦  NOW  ADD  RECORDS  To  RVCT  TO  PROVIDE  1INKAUL  TO  RM.TR.  ♦/ 

CALL  APD_ FCUTINO; 

/*  FAI.I  THROUGH  AND  "ETtIRN.  */ 

END  /♦  OF  PROCESSING  'MR  MASTFR  CIRCUIT  FFCCRD  NOT  FOUND.  */  ; 


LSF  IF  ht  AT '.I  S -OK  TH  E N /♦  MASTER  CIRCUIT  RECORD  FOUNT  */ 

DC; 

/♦  SEE  IF  LINKAGE  TO  RVCT  IS  AIREADY  I’RFSE  NT  P Y DOING  A READV 
FlINCT- RFAPV  ; 

E II,  FID-'  R VCT'  ; 

REFE  R=  ' l KCT • ; 

LK  PATH  - • RMCTLKCT'  ; 

F L M LI  ST=  • r«  V CT  R PI CT  F NT.  • ; 

FNDP-'RLjE' ; /*  WILL  NO!  UPDATE  THIS  RECORD  */ 

/♦  CONTROL  ALREADY  SET  */ 

I OSAVF- 1 ) AREA;  /*  SAVE  C1RCUI'"  DATA  FOR  UPDATE  */ 

CALL  DDIO(‘),2);  /*  READ  THE  VARIADLF  RECORD  ♦/ 

EN  CP-'  FN  >.  • ; /*  DON'T  FORGET  TO  RESET  ENDi.  */ 

IF  ST  AT  US-i  - OK  THEN  SIGNAL  CO  NT  IT  ION  (TOT  ERR); 

/*  REFER- TNFP  MEANS:  NO  LTNKAOE  PRESENT,  */ 

/*  RECORD  IS  F 1 A 00  I’D  FOR  DEIFTICN,  AND  */ 

/*  USER  IS  DCINO  AN  "ADD."  */ 

/♦  OT  H FR  W I S E , THIS  IS  A "CM A NO  E"  REDDEST.  */ 


/*  IK  SO  l INK  AGP  10  T-  VC  T PS":'.  'NT,  Til  K N ASS U HE  11SFR  15  DOING  ADO*/ 
IK  R F F E R = E N D F Til  >-'N 

/*  No  LINK  Avi  F , SO  T K E AT  AS  ATP.  ♦/ 

no; 

/*  FOR  AN  ADC,  1ISFR  MUST  SPECIFY  TRUNKS  USED  B Y NEW  CRCT  */ 
IF  RO 11 T I)  SPEC  -NULL  Til  F N 
no; 

0 A L L M Sr.  ( 8 , ' C I RC  HIT  • | | KK  YC  | | 

• NOT  A CD  F C,  NO  TRUNK  (S)  S PEC  I FI  F D.  • ) ; 

V FT  URN; 

KNn  ; 

/♦  TUK  SPECIFIED  TRUNKS  FUST  TRACE  A CONTINUOUS  PATH.*/ 

/*  FUNCTION  ROUT  E_T  K ACF  RETURNS  T11F  VALUE  TRUE  IF  */ 

/*  T;ip  PATH  IS  TRACEABT1'  AND  RETURNS  Til  F hNDSITFS  AS  V 
/♦  A SOU  ME  NTS.  */ 

IF  '.ROUTE_  TRACE  (WKS7  TE  1 , WKSI  IE2)  Til  E N 

no.;  /*  UST  HAS  SFFCIFIEE  PAD  SET  OF  TRUNKS  */ 

CALL  MSG (M , • CiRCU IT  • | | K FY  C | | • NOT  ADDFP.  SPECIFIED' 
||'  TRUNKS  DO  NOT  TRACE  A CONTINUOUS  PATH.  •); 

R FT  1 1 RN  ; 

END; 

/♦  RESTORE  SAVED  IOAREA  AND  SET  */ 

/*  ENESTTES  To  IT  FF  A T F FOR  UPDATE  */ 

IOAHM-IOSA  VE; 

ST  HI NO (I  00 1 ECU  IT.  CIRCUITS  IT E 1 ) = W K S IT El ; 

ST't  1 N 0 (IOC  IRC  11  IT.  Cl  RC  U 1 TS  I TE  2)  -WKSITE2; 

I0CIVCMIT.KFICIFT.AG-Z8;  /*  SET  DEFAULT  VAIUE  FTP  ACT  */ 

TF  UIDATFCIROl  IT  TI1FN  /♦  RFPi.ACF.F1  F N T DATA  SPECIFIED  */ 

CALL  SET_UPDAr F_l  ; 

/♦  EVEN  IF  NO  UPDATES  ARE  SPECIFIED,  THE  FFCC  FT  V 
/*  MUST  STILL  PF  REWRITTEN  TO  REFLECT  Til  F NFW  */ 

/«■  END  SITES.  */ 

F U N CT - WP  TTM  ; 

FILEin='RF1CT'  ; 

CCNTROL=KFYC; 

SLR  L I ST  = KNO  T_E  LL  M ; 

CALL  PBIO  (7,2)  ; 

TE  ST  AT  US  OK  THEN  SIGNAL  CON  DIT  ION  ( TOTERR)  ; 

/*  DISPLAY  MESSAGE  ABOUT  ADDITION  ♦/ 

CALI.  MSG(0, 'CIRCUIT  *||KEYC||'  ADDED'  ) ; 

/♦  NOW  AIT  RECORDS  TO  RVCT  TO  PROVIDE  LINKAGE  TO  RMTR.  */ 
CALL  ADD_  ROUT  I NG; 

/*  FALL  THROUGH  AND  RETURN  */ 


/*  RESTORE  SAVED  10 ft  FRA  */ 

T CAPRA" ICS AV  F ; 

/*  !1Sr:<  NOT  PER MITT  OF  * 0 SPECIFY  TRUNKS  FOR  AN  UPDATE  */ 

If  T II  I E SP  BC  ■»  N DL  L THEN  /*  IF  HE  DID,  DON'T.  */ 

DC  ; 

CALL  ’is;  (t!,'CTKCUn  '|  | KF  YC  | | 

' ALREADY  PRESENT.  SPECIFIED  TRUNKS  NOT • | | 

' CHECKED  FOR  CONTINUITY.'); 

IF  1 1 ° I > A TEC IRC  UT  T THEN 
CALL  MSG(U, 

•SPECIFIED  DATA  UPDATFS  NOT  PERFORMED.'); 

SD'TU  RN  ; 


/*  Ni  TRUNKS  SPECIFIED.  CHECK  ECS  UFDATES.  */ 

T F U FP ATFCILCU  IT  s'  II  F N 
DO; 

/*  DISPLAY  "PFFOKF"  VALUES  */ 

/*  < T E M P : CALI  M SO  (f  , • 3KF  CRE  : • | | ST  RI  NG  ( IOC  IPCUI T)  ) ; 

CALL  SET_  UPD A T E _C ; 

FUNCT - W Rl~  M ; 

F ILF  IP  = ' r MCT* ; 

FLU  IS?=  K MCT_ FL  FM  ; 

/*  CONTNOI  ALREADY  SET  */ 

CALI.  DP  in  (7,2); 

IF  ST  ATUS-»=OK  THEN  SIGNAL  CON  D IT  ION  ( TO  TER  R)  ; 

/*  DISPLAY  "AFTER"  VALUES  */ 

/ * < I " M P : ">♦/  CALL  MSG  ((  ,'  AFTER:  • | | ST  RI  NG  (IOCIRCU  IT)  ) ; 


"IGF  /♦  CIRCUIT  SPECIFIER  WAS  ALRFADY  PRESENT,  AND  USER  */ 
/*  SP  SC I El  ED  NO  UPDATES:  WARN  THE  USER.  */ 

CALL  MSG  (4,  • CIRCUIT  SIECIFIED  ALREADY  PRESENT  IN  PATA'M 
• DASE  AND  NC  UPDATES  SPECIFIED.  ')  ; 

END  ; 

t Nn  /*  0*  l NOCr''S  I NG  FOR  MASTER  RECORD  FOUND  IN  RMCT  */  ; 

IGF  /•  fNVAl.il  ST  A T IIS  TRYING  TP  IOCATF  SPECIFIED  CIRCUIT  RECORD  ♦/ 
SIGNAL  CONPI TION (TOTERR)  ; 


E-URN : 


'I l'  i>0 IIT 1 N V SIT  OPT  ATE'  c 


♦ / 

/*  */ 

» ::i::5  r'KAsoUTIN’-’  IS  CAUi’l'  PY  \c_  ci  rcui  t to  set  new  VALUFS  ♦/ 

* rci;  THE  D A " A M ■ lit;  in  a circuit  master  recoup.  n is  called  FOR  ♦/ 

.*  A RF-A.'S  7 E SOM  ' 1VATA  WI  ELDS  ARE  hESPECT  PI  LO  ANP  FOR  A CHANCE.  */ 

♦ IT.  n S T E R I S < (♦)  INDICATES  THAT  THE  EE  FAULT  VALUE  IS  TO  PE  RESET.  */ 

_ ii  ppa  t v_c : i* ocr.ntiR 

7 I ■ VlhST  IN  EACH  PA'..'  OE  ASSIGNMENT  STATEMENTS  IS  UNNECESSARY  IP  */ 
N A.'>  SPE'HTI’U,  Mil  IT  MAKES  THE  PROGRAM  CLEARER;  ANP  "*  " WON'T*/ 
/♦  ACTUAL!  Y S’  IISEC  MUCH,  SO  P"  ISN'T  REALLY  INEFFICIENT.  */ 


I E 

IN  ' A 1 A . 

IM  CTRL  AC.  . 

• • 

' 11°  N 

uk-;  LCU  I"'. 

KM  C T EL  AC~ 

INPATA . KMCTFLAG  ; 

I E 

I N r A "'  A . 

.'U  ■’  FI  AS  • 

♦ • 

TIP’S 

! OC  I KC  111  7 . 

PMCTELAC 

7.3  ; 

I V 

1 MU  I A. 

. Ml.  T'<*;  r% 

• 1 

'1  t t N 

IoCIRdU  T. 

P MCT  R s ri 

1 NO  AT  A.  KMCTRST  P; 

I E 

I N'A.A  T A . 

: mct  as  . r > 

* • 

T H E N 

• Ci.  I Ecu  IT. 

RMe  I’RSTP- 

• t • 

• 

1 E 

IN  TAT  A. 

•MCI HAIM  -- 

• t 

r lie  n 

1 (V  l lit'll  T T. 

1'MCTR  A PL  - 

I N DAI  A • SHOTS A PL  ; 

L V 

: NP  A'"  A . 

RNCTR  API  ’ 

♦ » 

7 HEN 

IOC  I PC  HI  7 . 

Ii  MC  THAI  I 

• • . 

• 

T r 

I N P A A . 

. MCT I PEN  . 

« I 

T l!"N 

1 OC  1 1-  CU  i 7 . 

•iMcl  I PIN 

\ N D « T A • SNOT  I Dr  N ; 

I l 

] N P A 7 A . 

MCT  [ ’’  E N ' 

♦ • 

" H N 

1 OC  1 ECU  IT. 

RM  CT  1 0 FN 

i • . 

I * 

I N P A " A . 

' MCT  XT  I. v . 

« • 

7 HEN 

IOC1 ECU  IT. 

K MC  LX  ii  PE’ 

I ND  AT  KHOTXK  F F ; 

! " 

I N’A  A. 

UMCTXRR v • 

♦ • 

""HEN 

IOC  I KC  III  7 . 

K MC  7 X N K p 

i i . 

’ n 

I NO  A “ A. 

RMCT'-’T  I I * 

t I 

"'PEN 

loe  i pen  I". 

RHCTF ILL 

IN  DATA.  RHCTKI  l-L; 

ii 

i n r a i a . 

•;  MCT  PI  I I ' 

♦ • 

7 HP  N 

I iX‘  : PCtl  1 T. 

RM  CT  I 1 L L 

• t . 

•;  v 

" N 

"||  R«J  ; 

0 /*  SET 

_ll?  P A T T _C 

♦ 

I-  N T /*  AC  cue  III  ♦/  ; 


/*  S II  DR  CUT  INF  AC_7RUNK  */ 

/*  V 
/*  THIS  SU3R0UTI NF  PERFORMS  THE  ACTION  SPECIFIED  BY  A 3T  REVEST.*/ 
/*  IF  NO  RECORD  IS  FOUND  WITH  "HF  SPECIFIED  CONTROL  KEY  OR  IF  A */ 
/*  RECORD  IS  FOUND  BUT  CONTAINS  NO  LINKAGE  TC  V A FI  ABLE  FFCORTS,  */ 
/*  THr  N IT  IS  ASSUMED  T H AT  THE  IIS  FK  IS  DO  IN  0 AN  "ADD."  ROUTING  */ 
/*  INFORMATION  MUST  B F SPECIFIED.  IF  THE  MASTFP  KSCCPD  IS  PRESENT  */ 
/♦  WITH  LINKAGE,  THEN  ONLY  A "CHANGE  TATA"  IS  PERFOPMED  AND  NO  */ 
/*  ROUTING  MAY  BF  SPECIFIED.  */ 
/*  * / 
/*  .AC_  TRUNK  HAS  NO  PARAMETERS.  ALL  DATA  APR  CPTAINFC  FROM  */ 
/*  G ICBAI'VART ABIES  DECLARED  IN  T HF  MAIN  PROCEDURE.  */ 


IF  STATUS-'  MPN  THEN  /*  MASTER  TRUNK  RECORD  NOT  FOUND  */ 

DO; 

STATUS =CK; 

/*  FOR  AN  ADD,  USER  MUST  SPECIFY  LINKS  USER  BY  NEW  TRUNK  */ 
IF  ROUTE SP EC=  N (ILL  THEN 
DO  ; 

CALL  (ISC,  (8, 'TRUNK  *||KEYT|| 

• NOT  ADDED.  NO  IINK(S)  SPECIFIED.'); 

RETURN; 

END; 


/♦  T'l  E SPECIFIED  LINKS  MUST  TRACE  A CCNTrNUCUS  FATH.  */ 

/*  FUNCTION  ROUT F_T RACE  RETURNS  THE  VALUE  TRUE  IF  */ 

/*  THE  PATH  IS  TRACEAHLE  AND  RETURNS  THE  ENDSITES  AS  */ 

/*  ARGUMENTS.  */ 

IF  -iROUTE_TRACE(WKSITE1,MKSITE2)  Til  F N 

DO;  /*  USER  HAS  SPECIFIED  DAE  SET  OF  LINKS  +/ 

CALL  MSG  (8, 'TRUNK  '||KEYT|| 

• NCT  ArDEC.  SPECIFIED  IINKS  DC  NCT  TRACE  A 'll 
•CONTINUOUS  PATH.  •)  ; 

RFTUKN ; 

END; 


/♦  LINKS  CHECKED  OUT.  MOVE  DATA  TC  10  A RE  A 6 ATT  TRUNK  TO  R M T3 . */ 
IOTRI)NK=TNPATA. TRUNK,  BY  NAME; 

IF  IOTRUNK.  RMTRFLAG=  ' ' THEN  IOTKMNK.  RMTRFLAG  = Z3;  /*  DEFAULT  */ 

STR IN G( IOTRUNK . TR  UN K SI  TE1  ) = WK SI  TF1  ; 

STRING  (IOTRUNK.  TRU  NKS  ITE2)  =WKS  IT  E2  ; 

FUNCT= ADD_M; 

F IL  t ID  = • R M T R ' ; 

CONTROL^  K5YT ; 

E.LML  IST  = RMTP_ELEM ; 

CALL  DDIO ( 7, 2) ; /♦  WRITE  IHE  NEW  TRUNK  rASTEE  FECCRD  */ 

IF  ST  AT  US  -»=  CK  THEN  SIGNAL  CON  C IT  ION  (TOT  IE  R)  ; 

/*  DISPLAY  MESSAGFS  ABOUT  ADDITION  */ 

CALL  M SG ( 7 , • TR  UN  K '||KEYT(|'  ADDED'); 

/*  NOW  ADD  FECCEDS  TO  RVTL  TO  PROVIDE  LINKAGE  TC  KMLK.  */ 

CALL  ACD_FOHT ING; 

/♦  FALL  TI1P0UGH  AND  PET  URN,  */ 


END  /*  OF  PROCESSING  FOR  MASTER  TRUNK  PFCCRD  NOT  FCUNP.  */  ; 
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St. si  IF  STAT"S=OK  TM'-'N  /♦  '1AS1FF  THUNK  FiCORP  FCUNP  •/ 

PC; 

/♦  SFF  IF  LI.NKAOF  TO  KVTL  IS  AI.RFATY  PRFSF.NT  PY  OOINU  A RFAPV.  */ 
FUNCT*R  l APV; 

FT  LFT  P= • RVTt'; 

FFFFR  i,k  TL ' ; 

LK  F A?H  - • RMTFLKT I • ; 

FI. 'll  IS".  =•  RVTL3f1T'?vND.  • ; 

F.  N D p = • P L S K • ; /*  * I LI.  NOT  HPDATF  THIS  RECORD  */ 

/*  CON  "^R  )L  At. P FA  DY  SKI  */ 

IOSAV  E = I 1 AREA  ; /♦  FA  Vv  TRUNK  DATA  FCR  U FD  ATE  */ 

CALL  Pt1IO(S,->)  ; /*  R c A F THF  VARIABLE  SFCCFD  */ 

F ND  F"  • P NP.  * ; /♦  P C N ’ T FOIUJFT  TO  RESET  FNPP.  */ 

IF  STA".  HS -.-OK  THPN  STC.NAL  CO  NPI  II 0 N ( TCT  F R R)  ; 


,4 

f 


l 


1 


/*  FCF  AN’  ADD,  US  F F MUST  SPECIFY  LINKS  USED  PY  NEW  TRUNK  */ 
IF  EO  UT  E SP  EC =N  ULL  THEN 
DC; 

CALL  MSG (P, ’TRUNK  *||KEYT|| 

• NOT  ADDED.  N'O  LINK(S)  S PEC  TFIE  T.  • ) ; 

RETURN; 

END; 

/*  TH  F SPECIFIED  LINKS  MUST  TRACE  A CONTINUOUS  PATH.  */ 

/*  FUNCTION  FOUT  E_T  R AC  F RETURNS  THE  VALUE  TRUF  IF  */ 

/*  THV  PATH  IS  TRACFA3LE  AND  RETURNS  THE  FNCSITF.S  AS  V 
/*  ARSUr.^NrS.  */ 

IF  *»FO  MT  E TF.  A F (W  KS  1TF  1 , W K SI  TS  2)  THEN 

DO;  /*  USER  HAS  SPECIFIED  DAD  S FT  CF  LINKS  */ 

CALL  MSS  (8,  ’TRUNK  ’ ||KEYT|| 

• NOT  ADp£D>  SPECIFIED  IINKS  PO  NOT  TRACE  • 

| | ’ A CONT INUOUS  V ATH. ’ ) ; 

8 FTtIR  N ; 

END; 

/*  RFSrorr  SAVED  IOARFA  ANT  SET  ♦/ 

/*  ENDSITES  TO  PFFPARE  FCR  UPDATE  */ 

I C ARE A= I OS  AV  F ; 

STR  INC.  (IOTP  UNK  . TR  UN  K SI  TF  1)  =WKSITE1  ; 

STRING  ( I CT  RU  NK.T  PUNKSITF2)  =WKSITF2; 

IOTFUNK.  R.MT  RFL  AG=Z8  ; /*  SET  DEFAULT  VALUE  FOR  ADD  */ 

IF  UPDATFTR  UNK  THEN  /*  REPLACEMENT  0 AT  A SFECIFIFF  */ 

CALL  S ET_U  PD  AT  E_T  ; 

/*  EVEN  IF  NC  UPDATES  AFF  SPECIFIED,  THE  FECORD  */ 

/♦  MUST  STILL  BE  REWRITTEN  TC  REFLECT  THE  NEW  FND  SITES  */ 
FUNCT=  WRITM; 

F ILEIr'  = ' RM  TR  ' ; 

CCNTRCL=  KFYT  ; 

ELMLIST=RMTR_FLFM  ; 

CALL  DPIC  (7,2)  ; 

IF  STATUS-*=OK  THEN  SIGNAL  CO  NDI  TI  CN  ( TCTER  R)  ; 

/*  DISPLAY  MESSAGE  ABOUT  ADDITTCN  */ 

CALL  MSG p ,’T PUNK  • | | K FY T | | • APDFC'); 

/*  NCW  ADD  '’ECOPDS  TC  PVTL  TO  PROVIDE  LINKAGE  TO  RMLK.  */ 
CALL  AD D_ ROUTING; 

/*  FALL  THROUGH  AND  FE1UFN  */ 

FND; 
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! NP 

lie:  / 
s i c 


F LSr  /* 
TO  ; 


LTNKAG*  ALREADY  PRESENT.  UPTATE  ONLY.  •/ 


/ ♦ 

R ES  T 0 K E SAVED  I 

CAR 

FA  ♦/ 

I c 

A RE  A = I OS  AVI; 

/* 

USES  NOT  PE*  HIT' 

TF.D 

TO  SPECIFY 

LINKS  FOR  AN  UPDATE 

l 1 

So  HI  F Sr  EC  -t - N ULL 

TH 

F.  N / ♦ IF'  H r. 

DIP,  DON'T.  */ 

PC; 

CM.!.  M S > ( S , • TR  UNK  ' | | K K Y T | | 

' AIPTAPY  PRESENT.  SPECIFIED  I INKS  NOT'll 
' CHECKED  7CR  CC NTI NU I T Y . • ) ; 

TF  UPP ATrTKMNK  THEN 

CALI  NEC  (a, 

•SPECTFIFP  DATA  UPDATES  NOT  rFRFORMFD. • ) ; 

SEMI  R N ; 

EN  P ; 

N > LINKS  S n E C I F"  I EL.  CHECK  EC*  UPPATFS.  */ 
urn  AT  FT  SUNK  THFN 
po  • 

/*  L'ISFLAY  "UFFOSE"  VALUES  */ 

/*  <1  :NP:  >*/  C A L 1 NEC  (•■  , MC-.ECK  ■:  : • | | ST  F INC  (IOTKUNK)  ) ; 

CM.L  S:CT_UPPA  TE_T  ; 

EH  NC1'-  KEITH; 

FILETP-'h'H.TH'  ; 

L N L r S T - F'HT  P_EI.EM  ; 

/♦  CO  N T 1 0 1.  ALREADY  SET  */ 

CATC  DPIO(U,2); 

IE  STATUS-.=  OK  "HEN  SICNAL  CON  D IT  ION  ( TOTES  R)  ; 

/*  P iS  PLAY  " A F”7t>"  VALUES  */ 

/*< 1EM P: > */  CALL  NEC  (T  , ' AFTER:  • | | ST  RING  (IOT  FUNK)  ) ; 


* N1'  ; 


r LS r /*  TRUNK  S PFC I * I F u WAS  ALRFAPY  PRESENT,  AND  USES  */ 

/*  SPECIFIED  NO  UPPATFS:  WARN  THE  USER.  */ 

CM!.  TSO{U, 'TRUNK  SUEC'IFIEP  ALREADY  PFFSF.NT  IN  TATA  '|| 
•RASE  ANT  NO  UPDATES  SPECIFIED.'); 

F\'P; 

/*  OF  PROCESSING  rO"  N.  ASTER  RECORD  FOUND  IN  R FT  K */  ; 

11  INVALIP  STAPHS  TRYING  TO  LOCATE  SPECIFIED  TRUNK  RECORD  */ 

• A L CONDtT  I C N (TC^FFR)  ; 


M"  FN  ; 


/* 

SUBROUTINE  SPT_ 

UPDATE_T 

V 

/* 

*/ 

/* 

THIS  SUBROUTINE  TS  CALI.'1’!)  BY 

AC_TRUNK  TC 

SET 

NFW 

V ALU  ES 

* / 

/* 

FOR  THE  DATA  ETFLDS  IN  A TRUNK  MA 

STEF  RECORD 

. IT 

IS 

CALLED  FOR 

*/ 

/* 

A R F-  ADD  IF  SOME  DATA  FIELDS  A?’7 

RE  SPEC I FI  ED 

AND 

FCR 

A CHANGE. 

V 

/* 

THE  ASTERISK  (*  ) INDICATES  THAT  T 

HE  DEFAULT 

V ALUE 

IS 

TO  Br  RESET. 

V 

SFT_  UPDATE_T : FRCCEDURS; 


/*  THE  FIRST  IN  v AC  il  His  AS  S IG  NM  F N’T  STATEMENTS  IS  UNNECESSARY  IF  */ 
/*  "*"  WAS  SPcCIEIEr'/  BUT  IT  MAKES  THE  IFCGRAM  CLEARER;  AND  "*"  WON'T*/ 


/*  ACTUALLY  FF  USED  MUCH,  SC  IT  ISV,T  REALLY  IN  EFFIC IEN ' 


V 


IF  I N D A T A • M ~K  FL  A C -•-  * ' THEN  I OT  RM  NK . RMTR  EL  A G=  IN  DAT  A . P M TR  FL  AG  ; 


I ? IN  DAT  A. RUTH A C = ' * ' 


IOTRUNK. RMTPFl AG=7«  ; 


I p 

I NDAmA. 

RNTFRCA"'-*  = 

• 1 

TFFN 

IO" P UN  K 

T p 

I NPAL  A. 

RHTB  IC AT= 1 

♦ • 

T F p H 

IC"  FUNK 

I F 

IN  CAT  A. 

PM  TR  TCAP  -.= 

t 1 

T ilS  N 

IOTRUNK 

IF 

I NDATA. 

?MTRTCAr  = ' 

* • 

THEN 

IOTF I NK 

I F 

I NDATA. 

R MTRBAN  D-.= 

1 « 

~ H E N 

IOmS()NK 

IF 

INDATA. 

i;  MT  RD  A MP=  ' 

* f 

THEN 

10"'  RU  NK 

IF 

IN  DAT  A. 

L M TH  A V AL  -»  = 

1 * 

I II ^N 

IOTRUNK 

IF 

I NDATA. 

R’M  T R A V AI.  = ' 

* 1 

THEN 

10 t: unk 

IF 

I NDATA. 

P MT  RFI  LL-.= 

1 • 

l:  r 

ICT  RU  NK 

I F 

INDATA. 

R MT  P ?I  LI=  ' 

♦ • 

T IIFN 

ICT  rUNK 

CT  HUNK.  FMTR  F ILL=  IN  DATA.  P.mtkfILL; 


/♦  SUDRCIIT  INC  AC_UNK,  AC_  S IT  i.S 


/ * */ 

/♦  Til  T .SI).IRCIIT,I  NF  PERFORMS  THF  ACTION  SPECIF1KI  DY  A .#L  OK  ♦ / 

/♦  REQUEST.  ♦/ 

/*  */ 

/*  «:<:  ♦/ 

/*  ON  P OP  rwo  SITES  NAY  UK  SPECIFIED.  EACH  SITE  IS  PROCFSSED  */ 

/♦  INDEPENDENTLY.  IP  No  RECORD  IS  FCPM)  WITH  THE  SPECIFIED  CONTROL  ♦/ 

/♦  KEY,  THE  SITE  IS  ADDED;  OTHERWISE  DATA  HELDS  A R F UPDATED  AS  ♦/ 

/*  SPECIE  I ED.  ♦/ 

/*  */ 

/♦  »L:  */ 

/*  IF  SITES  APE  SPECIFIFP,  THEY  ALE  PROCESSED  FIRST  AS  DESCRIBED  */ 

/♦  APOVE.  IP’  NO  MASTER  LINK  RECORD  IS  FOUND  W1"'H  THF  SPECIFIFD  LINK  ♦/ 
/*  CONTROL  K,-Y  AND  IF  EXACTLY  TWO  VALID  SITES  WERE  SPECIFIED,  THEN  ♦/ 

/*  T PE  I INK  IS  ADDED.  IF  THE  LINK  WAS  PRESENT  AND  EITHER  NO  SITES  OR*/ 

/♦  THE  CORRECT  TWO  STTES  WERE  SFEC1PJPD,  THEN  DATA  FIELDS  ARE  UPDATED*/ 

/*  AS  SPECIFIED.  */ 

/*  * / 

/*  AC_I.  INK  / AC_  SITES  HAS  NO  PARAMETERS.  AIL  VALP  ES  ARP  OPT  A IN  PD  ♦/ 

/*  FROM  0 LOU  A L VARIABLES  DECLARED  IN  T HP  MAIN  PROCEDURE.  */ 


A C _ L INK  ; 

AC~SI  ; El  : PR<  CEDDP  ’ ; 


DECLARE 

SITE! 

CHARACTER  (11), 

SITE2 

CHARACTER  (11), 

K p:y  s 

CHAR  ACTED  (11), 

I 

HI  NARY  FIX  ED  ( 1r>,  r ) 

/♦  CHECK  SITES  AIIP  ADD  IP  NECESSARY  +/ 

DO  I-  1 TO  2 W II IL  " ( IN  DA  T A . SEOLOC  ( T ) ->r  • ’)  ; 

K P Y S - STD  INO{  IN  DA  TA.RMSICTR  1.  (T)  ) ; 

/♦  CHECK  SITE  MASTER  PILE  FOR  PRESENCE  CF  .SDECIP’171?  ITT F.  ♦/ 

F 11NCT=  RE  ADM  ; 

FIL  Pin-*  RMS  I*  ; 

CCNTKCl  KEYS  ; 

EI.M  LIST  RMSI_FI.  KM; 

CALI  OHIO  (7, 2)  ; /♦  READ  A SITE  RECORD  */ 

/♦  IF  THE  RECORD  WAS  NOT  POUND,  A I'D  IT.  IF  IT  WAS  FOUND,  UPDATE  ♦/ 
/♦  THE  DATA  FIpl.DS  IF  NEW  ONES  WERE  SPECIFIFD.  IF  ANY  OTHER  ♦/ 

/♦  STATUS  IS  RETURNED,  STONAt  CON  D IT  I ON  (TOT  ER  R ) TO  PRINT  A MKSEAOP’*/ 
/♦  AN  E "'HEM  INATE.  ♦/ 
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TM$  - • T F N K*  T H *•:  N /*  1 A'  "Hi  SIT!  SECOND  NOT  FOIINP  ♦/ 


/*  add  a nkw  ur::  sfcord  */ 

tos  ;ri:  I npata.  s it1-'  ( t ) ; /*  copy  data  to  ioaufa  ♦/ 

■ TOS'.V.K'ISM'LAO  • • T I1F  N 1 OST  TPI.  K FSI  F 1.  AO  - 7.S  ; / 

FMNCT  ATP_ m ; 

CALI.  DP  IO  ( 7,  ) ; 

IP  ''TAT'IS-.  OK  r 11  N :>  T i»  N A I.  CONDITION  (TOTFRR)  ; 

PALI  TS  o ( ,'SITF  ' I | K P Y : ■ | | ' A TP  F D.  ')  ; 


♦ TE  FAULT  ♦ 


UK  nil  '*p» 


FISE  TF  S?ATUE=OK  THEN  /*  RECORD  found  */ 

DO;. 

/*  IJP  DA  IF  DATA  FIRLPS  IF  SPECIFIED  */ 

IF  ’JFDATFSITE(l)  THEN  /*  REPLACEMENT  DATA  SPECIFIED  */ 
DO; 


/♦  DISPLAY  OLD  V A I UP  S FCR  USER  */ 

C ALL  MS  >;  ('  , • Rl  FORE:  • | |STRING(  IOSITE)  ) ; 

IF  INDAP  A.  RMS  I ST  (I)  -=  " THEN 

10  SI  TP. R «SI STC 1=1 NDA1A. RMSISTCT (I)  ; 

IF  INDA7  A.  RMS  1ST  CT  (T)  = ’ *•  THEN 
10  S 1 7 E . R M SI  STC  T ’ •; 

IF  IN  DATA.RMSIFl.AG  (I)  -.  = ' • THEN 

I OS  Tl’E.  RMS  1 FL  AG=  I N DAT  A.  EM  S I FL  AG  ( 1)  ; 

IF  IN  DATA  .RMSTFLAG  (I)  THEN 

I OS  I”  K.  SMS  I FI.  A (5*7. 8 ; 

IF  INDAI’A.  EMSICOPr(T)  -.=  ' ' THEN 

I ) STT  E . R M SICOR  D -I  NDATA. RMSICCRD (I)  ; 

IF  I NDAT  A.  RMS  i COR  F ( 1)  = • *'  THEN 
lO  SI  TP . a M SICORD  = ' '; 

IF  I N D A T A . H M S 1 N U M P (I)  ->=•'  THEN 

r OS  IT  F.  RMS  I NU  MP=  IN  r AT  A.  RMS  INIJM  B(  I)  ; 

IF  INDATA  .EMSINUMH  (1)  ='  + ' THEN 
I OS  IT  E.  RMS  I NU  M F=  ' •; 

IF  INDATA.  RESTFUL  (I)  -»  = 1 ' THEN 

IOSITE  ,P  MSI  FI  LI  =1  NDATA.  R MSI  FILL  (I  ) ; 

Ip  I ND  AT  A.  RMS  I FILL  ( I)  = ' ♦'  THEN 
IOSITE. R.MS1FI  LI  ' •; 


i 


FUN  CT-WF  11:1  ; 

CALL  D R 1 0 ( 7 , D ) ; /♦  II  P T AT  E THE  SITE  RECORD  */ 
IF  STATUS-.  OK  TURN  SIGNAL  CO  NDITI  CN  (TCTERP)  ; 


/♦  DISPLAY  NEW  DATA  FOR  USER  +/ 

CALL  MSG  AFTER:  • | | ST  R ING  ( IOS I T E)  ) ; 


S"  IF 
CALL 


PND  ; 


REDDEST  I.FVI,  'S'  III  ’ N /*  */ 

MSS  (N  , 'SITE  • | | KEYS  | | • ALREADY  PRESENT  IN  DATA' 
II'  DAS':  AND  NO  UIDAV’S  SPECIFIED.'); 


FIS1’  /*  INVALID  STATUS  TRYING  TO 
SIP.NAL  CONDITION (TOTEEF)  ; 


READ  SITE  RECORD  ♦/ 


F NP ; /*  IF  Loop  TO  PROCESS  SITES  */ 


r 


d 


H-l  IS 


/**♦  FROCESS  LINK  **+/ 

/♦  CHECK  RMLK  ''C5  PRESENCE  CE  LINK  RECORD  */ 

FU  N CT  = F E ATM  ; 

PI LET  D = • RMLK'  ; 

CONTROL  = IN  DAT  A. 3 ML K CTRL; 

F LMLI  ST  - R ML  K_ELE  M ; 

CALL  EBIO  (7,2); 

IF  S T ATM  S = ' M R N p ' THEN  /*  FASTER  LINK  RECORD  NCT  FCDND  */ 

DC  ; 

/*  BE  FOR  E ADDING  A NEW  LINK,  MAKE  SURE  THO  SITES  SPECIFIED  */ 
IF  SI  TE  1 = • ' THEN  /*  NO  SITES  GIVEN  */ 

DO; 

CALL  MSG(8, • LINK  • | | I ND A T A . R ML KCTRL | | 

• NOT  ADDFC.  NO  SITES  SPECIFIED.'); 

^ RETURN; 

END  ; 

IF  S IT  E 2 = ' ' THEN  /*  SECOND  SITE  NCT  GIVEN  */ 

DO; 

CALL  MSG  (8, 'LINK  ' | | T ND  A T A . R M L KC  T E L | | 

' NOT  ADCFD.  ONLY  ONE  SITE  SPECIFIED.'); 

RETURN; 

EN  D ; 

/*  MOVE  0 A-"  A TO  ICAREA  */ 

IOL  I NK= I N D A” A.  LINK,  BY  NAMF; 

IF  10  LINK  ,RMLKFLAG  = ' ' THEN  TO  LINK.  RMIKFL  AG=  7.8  ; /*  PEFAI1LT  */ 

TOLINK.  RMLKFKLC^I  NCAT  A.  GEOLOC  ( 1)  ; 

10  L INK  . F.MLKPFAC  = TNDATA  . FACT  I.I  TY  ( 1)  ; 

IOLT  NK. RMLKTCLC  = INC AT  A. GEOLOC (2)  ; 

I;  IOLINK.  RMLKTFAC=TNPAT  A.  FACILITY  (2)  ; 

FUN  CT  = A DD_M ; 

CALL  DBIO  (7,  2)  ; 

IF  5TATUS-=0K  THEN  SIGNAL  CON  FIT  ION (TOT  ERR)  ; 

CALL  MSG  (0, 'LINK  • | | T ND  AT  A . P MLKCT  RL  | | ' ADDED.'); 

/*  FALL  THROUGH  AND  RETURN  ♦ / 

EN  D ; 
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E IF  STATUS-OK  T H"N  /*  LINK  RFCORD  FOUND  ♦/ 
DO; 

/*  COLLECT  CONTFOL  KEY  OF  SITES  ASSOCIATtE 
/*  TN  HELDS  FOE  WOP  KING  SITES 
W K S 1 T F 1 /*  STRING  (LtNKSITFI)  ♦/  RKLKFRLC; 

W N " F ? - /*  STrj  I N G (LINKSITE2)  */  RMIKTCIC; 


ASSOCIATED  WITH  LINK  */ 

*/ 


/*  tv  s:r::s  were  specified,  they  must  he  the  same  as  the  */ 

/*  ONES  ASSOCIATED  WITH  THE  LINK;  OTHERWISE,  THE  USFF  HAS*/ 
/*  MADE  AN  E380R.  HE  CANNOT  CHANGE  THE  SITES  ASSOCIATED  */ 
/*  WI^H  A LINK  IN  THIS  MANNER  PECAUSS  .ALL  1?  EL  A TED  THUNKS  ♦/ 
/*  AND  CIRCUITS  WOULD  P E AFFECTED.  TC  CHANGE  THF  SITFS  */ 
/*  ASSOCIATED  WITH  A GIVEN  LINK:  PURGE  ALL  AFFECTED  CIR-  ♦/ 


/*  CHITS 


IFUNKS;  THEN  USE  XL  TC  CHANGE  THE  DATA  IN 


/*  THF  LOCATION  AND  FACILITY  FIELDS  OF  THE  LINK  MASTER  */ 

/*  RECORD.  (THE  LINK  RECORD  DOES  NOT  ACTUALLY  CONTAIN  */ 

/*  LINKAGE  TO  THE  SITE  MASTER  HIE.)  A LTE  BN  AT  IV  ELY,  */ 

/*  A FT  ’’  R DELETING  ALL  AFFECTED  TRUNKS  AND  CIRCUITS,  DE-  */ 

/*  LSI".:  THE  LINK  AND  THEN  RF- ADD  II  WITH  THE  CORRECT  ♦/ 

/*  SITFS.  ♦/ 

/♦  IF  SITPS  W X K F SPECIFIED,  THEN  IF  THEY  DO  NOT  MATCH  THE  */ 

/*  CHR  R FN  T LINK  END  SITES  IN  E I III  E R ORDER,  THEN  THF  USER  */ 

/*  HAS  MADE  AN  ERROR.  */ 

I F SI TI  1-»  • THEN 

IF  -•  ( (SITE  1=  WKS  IT  F l R S IT  E2=WKS  IT  ?2)  / 

(S  IT  .■  1 * WKS  I”:’  2 fi  SITE  2=W  KSITK  1)  ) THEN 
DO; 

CALL  MSG  (H, 'STECIF  IFF  SITES:  • | | S IT  E 1 1 | » • ||SITF.2|| 

’ DO  NOT  MATCH  END  SITES  OF  SPECIFIED  LINK 
| | W KS  ITK  1 | | • 'I  |WKSITF2)  ; 

RETURN ; 
rND ; 

/*  WE  NOW  HAVE  A IP  FORK  I AT  F LINK  AND  S1TF  INFORMATION.  ♦/ 

/*  IF  REPLACEMENT  DATA  SP1.CIFI  FD  . UPDATE  PMLK.  V 


/*  SUBROUTINE  r»K L CIkCLTI  ♦/ 

/♦  “ •/ 
/*  THIS  SUBROUTINE  PF'RFOFMS  TUP  ACTION  SPEC  I FI  RP  FY  A -C  REQUEST.  * / 

/*  IT  FIRST  DELHI’S  AL1.  LINKAGE  TO  RVCT  AND  1 ilFN  FLAGS  THE  RECORD  ♦/ 

/*  KOK  D E I F’  T T C N PY  ACTING  TO  A LINK!!'  LIST.  IF  THF  CIRCUIT  IS  */ 

/*  SllBS  KOI!  r'NTLY  R K-  ADDED,  THK  SAT  A KIE1PG  til  LI  HI'  SFTAINIT.  IF  THF  */ 

/*  CIRCUIT  IS  NCT  RK-A^DEC  I"  IS  PHYSICALLY  P FL  FT  ED  IN  A LATER  */ 

/•  CL  FAN  UP  STEP.  ♦/ 

/*  * / 
/*  r)El._CIRCUIT  HAS  IJO  PA  RAiMETFI'S.  All  DATA  A Sr!  CPTAINFC  FROM  */ 

/*  GLOBAL  VARIABLES  DECLARED  IN  THF  MAIN  PROCEDURE.  */ 


TF!._  t IF.  i'll  I !’:  PROC  Hll!?  F; 


CtCLARE  «_i'R'INSS  BINARY  f IX  F P ( \ S , <• ) ; 

DECLARE  K FY  C CHARACTER  (9)  ; 

K V YC  = ST  i-  ING ( TN  PA  1 A ..-MCTC1  !L)  ; 

/*  PREPARK  TO  PELF”1'  ALL  LINKAGE  T N RVCT  TC  THUNKS.  THERE  IS  NC  NFIB*/ 
/*  TC  REAP  RMCT  FIRS"’  UECAUSF,  IE  M AST  F R CIKCIII"  RECORD  IS  NOT  */ 

/*  P R FS  N T , T H T FIRST  ATTEMPT  TO  RF’APV  Will  RESULT  IK  S ” ATUS=  • M RN  F* . */ 

F UNC  T = R r AD  V ; 

F II.  FID  = * RVCT'  ; 

REF’F  R = » LKCT  • ; 

LKPATH-  ' RMCn  KCT*  ; 

FLMLI ST- R VCT_KLFM ; 

CONT  ROl.  -K  1 Y cf 

CALL  P3IO  ( 2)  ; /♦  ACCESS  HR  ST  VARIABIF  RtCCKP  ♦/ 

IF  STATUS*  * IMRNF  • "’MEN 
DO; 

CALI  BSG{4 ,* SPECIFIED  CIRCUIT  * | | K F Y C | | 

• NOT  IK  P A”  A BASF:.  NO  RECORDS  DELETED.*)  ; 

ST ATUS-OK  ; 

RETURN; 

FNP; 

IF  STATUS-.=OK  riHN  SIGNAI  CONDITION  (TCTFRR)  ; 

/♦<TF  *FNR  IS  TC  IE  HANriFD,  no  IT  II F K I . > */ 

/♦  DISPLAY  MSG  ABO  I"  CIRCIC""  TO  p*  DELETED  */ 

CALL  MSG (", ‘CIRCUIT  *||KEYC); 

#_TKUNKS*r  ; 
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/*  P E LE  T E ALL  ASSOC  I AT  ED  V ARIAULF  RECORDS  IN  RVCT  */ 

CO  W MIL  H (rPFFR-.  = FNDP)  ; 

/*  rRIN'T’  DATA  ABO  til  THUNK  */ 

CALL  ISO  ('  ,'  USING  TFUNK  ' | | IV  CT  FMT  R | | ' EETWEEN  • | | R VCTRMSI  | | 

• and  * 1 1 :;v cttolc)  ; 

F 1INCT  = DT’  VP  ; 

CALL  OHIO  (9,2);  /*  DELETE  THIS  RECORD  */ 

*_TKHNKS=#_TRUNKS*  1;  /*  COUNT  II  */ 

IF  STATUS-*  = OK  THEN  SIGNAL  CO  N C IT  I CN  (T  OT  FR  R ) ; 

FUNCT-READV; 

CALL  DBI  0 ('>  ,2)  ; /*  READ  THE  NFXT  V A HI  A EL  E RECORD  */ 

IF  ST  ATUS-OK  THEN  SIGNAL  CO  NDIT I C N (T  CT  E R R)  ; 

ENn  ; 

/*  REWRIIE  THE  RECORD  WITH  MODIFIED  SITE  FIELDS  */ 

F UN  CT  = WR  ITM  ; 

F 1L  F I C=  ' RMCT  ' ; 

ELM  LI ST=SMCT_LOCS; 

TO  AR  E A = K FY  C | | ' * DEL  ST  ED*  * * * D E l.ETF  D * * * ' ; 

/*  CONTROL  ALREADY  SET  */ 

C A I I DBI  0 (7 , 2)  ; 

IF  STATU  S-.-OK  THEN  SIGNAL  CO  NDI  T T ON  (T  CTF  R R ) ; 

/*  ADD  CIRCUIT  TO  BEGINNING  OF  LIST  OF  THOSE  FLAGGED  FOR  DFLETION  */ 
A I LOCATE  DCIFCUIT; 

DCK  E Y = K EY  C ; 

NF  XTPC  = PEL_CT_  PT  R ; 

CFL_CT_PTR  = DCPTR ; 

/*  DISPLAY  MESSAGES  ABOUT  RECORD  'DELETED'  */ 

CALL  MSG  (O  , ' FLAGGED  FOR  DELFT  ION.  ' ) ; 

CALL  MSG  (I,*  NUMBER  OF  VARIABLE  RE  CO  RES  D EL  FT  E C : ' | | 

SHDSTR  (CHAR  ( *_TR  LINKS)  ,6)  ) ; 

CALL  MSG  (" , • CIRCUIT  MASTER  RECORD  R FT  A IN  ED  WITH  BLANK  LINKDA1H  S, ' ) ; 

R *TURN ; 

ENT  /♦  DEL_C IRCUIT  */  ; 
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/*  SUBRO  111  IN  F PEL  TRUNK  */ 

/*  “ */ 
/*  T !1 T SUBPO  UTIN  E PERFORMS  TH*‘  ACTION  SPECIFIED  BY  A -T  REQUEST.*/ 

/*  I p TME  trunk  is  ns  E n l:Y  nc  circuits,  it  deletes  all  linkage  to  */ 

/*  R V7L  AN  n THEN  FLAGS  IIP  TRUNK  KFCGRP  FOR  DELETION  BY  AIDING  IT  */ 

/*  TO  A LINKED  LIST.  IE  IMF  TRUNK  IS  SUBSEQUENTLY  E E~ ADDED,  THE  DATA*/ 
/*  FIELDS  WILT.  BE  RETAINED.  IT  THE  n'RUNK  IS  NOT  RE-ADDED,  IT  IS  */ 

/*  PHYSICALLY  'ELF. TED  IN  A LATER  CLEANUP  STEP.  */ 

/*  V 

/♦  DEL  TRUNK  HAS  NO  PARAMETERS,  AIL  DATA  ARE  CBTAINET  FROM  */ 

/*  UCUAL  VARIABLES  DECLARED  IN  THE  MAIN  PROCEDURE.  */ 


RFl_7RUNK : P.’IOCEDUR F ; 

DECLARE  * _L INK  S BINARY  FIXED  (IS,;); 

DECLARE  :<  EYT  CHARACTER  (7)  ; 

K F Y T = :'T R I N ; ( I NO  AT  A.  EtMT RCT  RL)  ; 

/*  Til  EPF  MUST  nr  NO  ENTRIES  IN  RV  CL  FOE  THIS  TRUNK;  OTHERWISE,  THE  */ 
/♦  TRUNK  IS  BEING  USED  BY  AT  LEAST  ONE  CIRCUIT  AND  CANNOT  BE  DELETED.*/ 

E U N CT  = \ MTV; 

FI LEID  = • RVCT  • ; 

REFERS' l k c r ' ; 

LKPATt!  - • RMTRIKCT  ' ; /*  ACCESS  IT  EROM  THE  TRUNK  */ 
fleets t=' RVCTRMTR^NR. ' ; 

CCN1 RCL= K” YT  ; 

CALL  PRIG  | ) , 2 ) ; /*  LOCK  EOF  LINKAGE  To  RVCT  */ 

IF  STATUS3'  M^NF'  Til^N 
DC  ; 

CALL  MSG  (U, • SPECIFIED  TRUNK  '||KEYT|| 

' NOT  IN  DATA  EASE.  NO  RECORDS  DELETED.'); 

ST  A TUS-OK; 

K FTURN  ; 

p iii . 

• ■ » 

IE  JTA7US->=0K  THEN  SIGNAL  CONDITION  (TOTE HR)  ; 

IE  RE^Tp --EN Dr  THEN 
DC; 

CALL  MSG  (S,«  SPECIFIED  TRUNK  ’||KFYT|| 

• ISFP  BY  ONF  OF  MORE  CIRCUITS.  NO  RECORDS  EELETED.  •); 

FETURN; 

EMP; 
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/*  AT  TH I > POINT  TRUNK  record  has  fffn  found  and  is  used  ey  no  */ 

/*  CIRCUITS.  NOW  PREPARE  T O DEL  FT  F LINKAGE  IN  RVTL.  */ 

/*  niSTLAY  1 rSSAGF  ABOUT  TRUNK  "O  PE  DE.'LETED  */ 

CALL  MSG  ( ',  ’TRUNK  •||KEYT); 

/*  NOW  DELETE  Alt  ASSCCIATED  V ARIAELE  RECORDS  IN  RVTL  */ 

F U N C T = F I A D V ; 

F IL  F I D=  'RVTL  • ; 

RFFE,R=  • LKTL ' ; 

L K P A T H= ' RITE  LKTL'  ; 


./ 


FL*  I.  I • ~ >V  "L_  rL  ".1 ; 

/*  CCNTFCl  ALFPALY  S'-'!  */ 

cui  •>?’«'('»,.')  ; /*  access  first  FpcoFr  in  rvtl  ♦/ 

:>■  ST  AT " N - -IK  :i:  N SIGNAL  CO NDI T ION (TOT ERR)  ; 

*<I1  T A P " HANDLED,  PO  1 I IIFEE.  >*/ 

» LINK  ; 


'Mlit  ■'il’-'.'l  */ 

».!  i U ( AS  F F F-»r  F N D P ) ; 

/*  ..;TN"  r'A"A  A L ”11 1 LINK  ♦/ 

CALI  "NINO  LINK  • | | RVT  I.  F HL  K|  | • BETWEEN  • | | RVT  L B NS  1 1 | 

’ AND  *11  B V "L  TnLC ) ; 

FUN CT  = T ’’L  V P; 

CALI.  PPI  ' (9  ,-)  : 

• L IN  K S- * _L INKS ♦ 1 ; 

I'-  '•  f A T IS-.  ’ K‘  TilFN  iIGNA  L CONDITION  (TCTFBF); 


pPNC'  = ;-"A  'V  ; /*  kfad  next  vafiallf  becore  */ 
CALL  L?  10(9,2); 

I r P T A - )K  Til  s’N  '.il  SNA  I,  CONDITION  (TCTE  F 5 ) ; 


I T E rf  ITU  HO  PI  FIFO  SIT1'  FIELDS  ♦/ 

VoNC  r-W'-I""'  ; 

f ; t P : I , V " I . 


I P A F " A - K " Y 7 1 | ' * P F L FT  F C * * * * r IL ET  F r ♦ * ♦ • ; 

/*  CONI I OL  ALF PA NY  SET  ♦/ 

call  rri'M7,:); 

'V  S 'A  v!i  S OK  THEN  STON.Al  CO NDIT  I CN  ( i'CT E RR)  ; 

/*  .AIT  ~ U N K ~o  ’"LINN  IN.;  Op  LIST  0?  THOSE  FLAGGED  FOR  DELETION  */ 
ALLOC  ATT  TTR  UN  \ ; 

ATKr Yr Kv Y~; 

N rx~ r~  = DEL_TC_ >TR; 

?Fi_ii'_ri!’^n~r?F ; 

/*  r T s r l a y n~svao.es  */ 

CALI  ^LAGGED  FOR  DELETION.  • ) ; 

cut.  "S  G (",  'N  III  ?FF  OF  V A STAPLE  RECORDS  DELETED;  • | | 

S’nST  R ( ^ ! I A K (»_LINKS)  , t> ) ) ; 

CAM  '•■•,:(’,«-■  IN  I 1 A ST  -T  PIL-  RFC  OFT)  RETAINED  WITH  FIANK  LINKPATHS.  •)  ; 
Fn::i  PN  ; 

' N"  /*  nFL  TR’OJK  */  ; 


G 1 ’J  SC'IT  I NE  PEL  LINK 


/*  :''MU'Jni  IH  LISS  */ 

7*  V 

/*  THIS  SO  9 ROUT  I SI  PI  ! PC  RMS  THE  ACTION  IN  El  CAT  . ">  Y A -l  REQUEST,*/ 

/*  rBF  nns  je  no  entries  in  rvtl  fop  the  link;  ithefbise,  ras  link*/ 

*/ 
* / 


/*  • : ; : N • SD  BY  AT  LEAST  ONE  TRUNK  AND  CANN  " ::-!rTcn. 

/*  THE  F £ IS  Sc  NEED  TO  CHECK  FXFLICITLY  THAT  No  LINK  ASF  IS  PRESENT 
7*  BfCAUS!  V ATTEMPT  K)  DELETE  A HASTE!  RECCPC  rC  WHICH  V ARIA  EL! 

/*  RECORDS  ARE  LINKED  WILL  RESULT  IN  ' STATUS  S TUI  N )F  • ’ Ml  ’ * p OH 
/*  TOTAL. 

/* 

/*  LIKE  - S ANT1  UNLTKE  -C  AND  -T,  A -l  RESULTS  IN  THE  IMMEDIATE 

/*  PHYSICAL  DELETION  CF  T:lt  SFECIFIEr  KFCDRE. 

/* 

/♦  P E L_  t. r M<  HAS  NC  PARAMETERS.  ALI.  VALUES  AS  E OBTAINED 

/*  GLOBAL  VARIABLES  DECLARED  IN  THE  FAIN  FSCCEDU  K2. 

PFL_LINK:  FRCCEDURE ; 

/*  FIrST  S.-AI  "“IE  LINK  RFC. IKE  SC  THAT  CURIT-NI  DATA  CAN  BE  D I S-  */ 
/*  PLAYED  EOF  THE  USSR.  *, 


* / 
*/ 
* / 
V 
* / 
*/ 
* / 
*/ 


FUNCT  = F EACM  ; 

FI  LEI P = • MILK  • ; 

CONTROL  - IN  DAT  A. : v.  LKC' 
ELMLT  ST=  S"LK  FLEE; 


CALL 

CniC(7f2); 

IF  S’11 

ATC ? = ’ MEN  F* 

THEN 

DC 

* 

CALL  “SG(«, 

, 5 . Kc  - ..  • 

• 

S?  A T MS=  f K; 

F FTfTN  ; 

NOT  IN  DA 

NO  SECCFTS  PELETrD,  •); 


E ND; 


'*  W KNOW  T.TSK  ^COFP  :s  PRKSFNI 
/*  "•■>  DFLFr*  IT  AND  I'LL  ViSKr. 


AND  IS 


USED  BY  SO  THUNKS. 


V 

* / 


FUNCT-  PKL  'I ; 

call  rnMl7,.:); 


IF  S"A~;tS  = ' INPL'  Til rN 
PC  ; 


CALI  HS  ; (8, 
STATUS* OK; 

• ■ - I'}*)  . 


SPECIFIED  LINK 
USE  P P Y ONE  OF 


I 1 1 NPA  I A.  B1M.KCTRLI  | 

MOFE  THUNKS.  NO  RECORDS  DELETED.') 


; ‘ •’  A.  "S -.-OK  THEN  S IONA  L CONDITION  (T  OTT  RK)  ; 


CALL  .ISO  ( • T INK  ' | | IN D A 1 A . F 1 LKC 7F  L | | 

' AND  ' | | STRING (LINK SITFP) 


BETWEEN  ' | JSTRINO(LINKSITEI) | | 
' r F I ETFD. • ) ; 


TP  KN  ; 


TNP  /*  I> E L _ L T N K ♦/  ; 


I 

1 


/*  SUBROUTINE  DEL_SITES  */ 

/*  V 

/*  THIS  SUBROUTINE  PERFORMS  T II H ACTION  INDICATED  BY  A -S  REQUEST.  */ 
/*  EITHER  ONE  OR  TWO  SITRS  CAN  BE  SPECIFIED.  LIKE  -L  ANE  UNLIKE  -C  */ 
/*  AND  A -S  RESULTS  IN  IMMEDIATE  PHYSICAL  DELETION  OF  THE  SPECI-  */ 

/*  FIFP  RECORD.  A SUCCESSFUL  -S  OPERATION  ALSC  RESULTS  IN  TURNING  */ 
/*  ON  THE  DELETE_CNLY  AND  GARBCCL  FLAGS.  */ 

/*  V 

/*  DE  L_SI TES  HAS  NC  PARAMETERS.  ALL  VALUES  ARE  OBTAINED  FROM  */ 

/*  GLOBAL  VARIABLES  DECLAPFD  IN  THE  MAIN  PROCEDURE.  */ 


EE  L_SI  TE  5 : ERCCECIIRE; 


DECLARE  KEYS  CH  A F ACT  E F ( 1 1 ) , 

I BINARY  FIXED (15,") ; 

/*  USER  MAY  HAVE  SPECIFIED  ONE  Or  TWO  SITES  FCP  DELETION  */ 

DC  1 = 1 TO  2 WHILE  (I  ND  AT  A.  GF.OLCC  ( I) -*=  ’ '); 

KEYS=STPTNG  (I  NEAT  A.  E.MSICT  RL  II)  ) ; 

/*  FACH  SITE  MASTER  FILE  RECORD  HAS  THREE  LINKPATHS:  ONE  TO*/ 
/*  FVCT  ANP  TWO  TO  EVIL.  IF  BOTH  PATHS  TC  PVTL  ARE  EIANK,  */ 
/*  THEN  THE  ONE  RV CT  MUST  LE  BLANK  ALSO  ( BECAUSE  A CIR-  */ 
/*  CHIT  CANNOT  BEGIN  AT  A SITE  UNLESS  AT  LEAST  ONF  TRUNK  */ 
/*  BEGINS  C R ENDS  TilEFE)  . */ 

/*  V 

/*  THERE  IS  NC  NEED  TC  CHECK  EXPLICITLY  THAT  NO  LINKAGE  IS  */ 
/*  rFHSENT  BECAUSE  AN  ATTEMPT  TO  DELETE  A MASTER  RECORD  TC  */ 
/*  WHICH  VARIABLE  RECORDS  ARE  LINKFL  WILL  RESULT  IN  A */ 

/*  STATUS  RETURN  OF  ' IMDL'  FROM  TOTAL.  */ 


/*  FIRST  R ^ AD  THE  SITE  RECORD  */ 

FUN CT  = R EAPM; 

FI LI  I D=  • FMSI  • ; 

CON? ROL  =K HY  3; 

E L M LI  ST=  R MS  I_ E L E M ; 

CALL  BRIO  (7,2); 

IF  ST ATUS= 'MRNF • THEN 
CO; 

CALL  MSS  (4, • SPECIFIED  SITE  • | | KE  YS 

||'  NOT  IN  DATA  EASE.  RECORD  NOT  DELETED.'); 

STATUS=CK; 

GO  TO  NEXTSTTR;  /*  ESCAPE  TC  NEXT  ITERATION  CF  DC  LCOP  */ 


FMD; 


/*  now  " R V ro  "'•:Li’TiI  l'1’  AN'.’  '"Kit  THF.  USSR  ♦/ 


r> ”i- _*i : 

C Alt  n!»T  0 ( / ,2)  ; 


iv'  ;;r ai nr-  '..vm'  ’’pen 
ro ; 

CM  I " m , * : ' l ' : ' t 1 S IT  s 1 T r ' | | K KY  0 || 

' i>:.  :d  ’i y onv  or  not  r ruiiNKS.  record  not  deleted.')  ; 

s :r,':  ns  -os  ; 

;o  -c  n trsvr.:;  /*  ivcai'I  u next  iteration  of  do  loop  ♦/ 

1-  N D ; 


T 1. 

M'ATt’l'-  ’S  TIP’ 

N S 10 

MM  Cl 

' NT’  ITT  ON 

(T 

OTERR)  ; 

CM  l 

HSG 

• l 1 K !•: 

Y S | | • 

DE  l t’l  CD 

^ » 

) ; 

DM.  ! 

IT  ONLY  1 T 

/*  A 

, 

it  ICC  E E 

n 

-S,  CNIY  D F 

; Adi 

COL  * 1 "■ ; ' * 

sneer 

;s  i t’  L 

-S  FORC 

ES 

0 AREA 0 V COL 

NFX PS  IT i 

/*»*«**  / 


VN  o; 
rT  I!  VN  ; 

END  /*  PEI _S1  i */  ; 


/♦ 
/ * 
/* 
/♦ 
/* 
/* 
/* 

/♦ 

/* 

/* 

/* 


SU  UROU  r T NK  n T l' II  NK 


♦/ 

*/ 


THIS  II  !l  ROUT  INK  Pf  hPOF  MS  TIIF.  ACTION  IN  CICATFD  BY  A #T  R ’\Mlf  S T . * / 

"ill  SPECIFIED  TRUNK  MUST  A LF:  K AD  Y BE  PRESENT  IN  T ll  F DATA  BASE;  THE  ♦/ 

5PECJ FITSD  ITliK(S)  HOST  ALL  Bi  PRESENT';  AN  u THE  CURRENT  TRUNK  END  */ 
S IT*:'  MUST  UK  TJJF  l\ME  \S  THE  END  SITES  CP  THE  N"W1Y  SPFCIPIfD  ♦/ 
CHAIN  CP  LINKS.  IF  ALL  CONDITIONS  All  t SATISFIED,  THE  CURRENT  ♦/ 

LINK  Al'  I TO  I VTL  IS  DELETED  AND  THF  NEW  LINKAGE  IS  ADDED.  ♦/ 


R"_  .'HUNK  HA  S N«1  PARAMETERS. 

S IOBAL  VARIABLES  DECLARE  I'  IN  THE 


Ml  VALUES  ARE  cETAINED  FROM 
MAIN  PROCEDURE. 


*/ 
* / 
* / 


' TRUNK : PROCEDURE; 


CFCLALF  KFYT  CH  A R AC  ” F R (7  ) ; 

K FYT  S".  INS  ( IN  DAT  \ .TMTKCT  ' l ) ; 


/*  DSL  F.'r  E CUri-SNI  LTNKAUE  TO  DVT]  AND  ADD  NEWLY  3 F EC  T VI  E D LINK  A (IF.  */ 
/*  ENDPOINTS  CF  F PU  NK  MUSI  NoT  CHANGE.  < ♦/ 

/♦  CHECK  p 0 R PRESENCE  OF  TRUNK  Rf CORD  */ 

HINCT -K F ADM ; 

FT  IF  I D - 1 HV8  ' ; 

CONTROL -K FYT; 

D1  Ml  I S T = R MT  R_ F. L F M ; 

C ALL  DPIO  |7, C ) ; 

IF  S I AT"S=  ‘MEN  ?•  THEN  /*  MASTED  TRUNK  R F CORD  KCT  FOUND  */ 

DC; 

CALL  MSO,  (P,  • SPECIFIED  TRUNK  '||KFYT|| 

• NOT  PRESENT  IN  FATA  t A ■ F . REROUTE  NOT  r F«  F 0 R M F D.  » ) ; 
ST ATHS=CK; 

RETURN  ; 

END; 

II  STATUS-«=OK  THEN  SiC.NAL  C O ND  I T I ON  (TOTP  R R)  ; 


/♦ 

T H t SPECIFIED  LINKS  MIST  TRAC!1  A 

CO  NT'  1 

Nil  ous  r.\ 

Til. 

V 

/* 

F DNCTI  CN  RCI)Ti’_T  RACE  R fc"'H  F NS  THE 

V ALII  r 

TR  II E 

I P 

♦ / 

/* 

T P F PATH  IS  TRACEABLE  AND  RETURNS 

T’.l  F 

Ftf D SIT  F S 

AS 

♦/ 

/* 

A ROD  1 ENTS. 

V 

I o; 

• A V F - I 0 A R F A ; /♦  SAVE  CURRENT  TRUNK 

D AT  A 

+ / 

IF  ••ROUT  r TRACE  (UK S ITF 1 , WKST TEC ) THEN 
DC; 

CAM.  M S S ( H , ' Ru  S’C  1 I ED  LINKS  DO  NOT  T 15  AC  K A Cl'NTI  NUCIIS  LATH.' 
||'  RERO'ITt  NwT  PEFFORIUC.  • ) ; 

TUTU  RN; 
t N n ; 


It -IBB 


LiaaL 


/♦  NOW  C C M P A F ’’  K V 1 N P P CIST:'  WITH  CU  RRFNT  ON  V S * / 

LOAF  FA  - TOSA VF;  /*  R ESTOJi  * TRUNK  DATA  V 
IF  -•  ( ( RM  TR  KRLC  : WK  S ITT  1 f.  \ MTR  TO  LC  = WK  SI  TK2  ) | 

(RMTHERIC  WKSITE2  K RMT  RTOLC-WKf  ITE  1)  ) THEN 

no ; 

CALL  MSG  (H,  • ENDSITES  DO  NOT  MATCH.  NEW:*  | | WK  SITE  1 | I ’ • | | WK  SI  TP  2 

II’  OLD:  ' | | STi- INC,  ( TRUNK  SI1E1  ) | | ’ • | ( ST  R 1 NO,  (T  RU  NKS  IT  E2) 

II'.  REROUTE  NOT  F EF  FO  RM  ED.'); 

RETURN; 

t N T ; 

/*  NEW  LINKS  CHECKED  OUT.  DELETE  OLD  ANT  ADD  NEW  */ 

CALL  MSG  ("»,'  TRUNK  * | | K EYT  | | • EF.TWEFN  • | | 

STR  INC  ( TR  MNKS!  TP  1)  | | 1 AND  ' | | STKI  NG  (TRUNKS  IT  E2 ) ) ; 

/♦  DELETE'  OLD:  */ 

E UNCT  - RF.ADV; 

EILFIC  • R V TL  • ; 

REFE  R = ' L KTL  ’ ; 

LK-PATH  ’ RMTR  LK  Cl.  ’ ; 

E LM  lO  ST=  K V " L_E  L S M ; 

CONTROL- K EYT; 

CALL  DPT0(  /♦  G”T  FIRST  RECORD  */ 

IF  STATUS--  OK  THEN  SIGNAL  CON  TIT  ICN  (TOT  E HR)  ; 

Du  W II II.  F (REFER-*  EN  DP  ) ; 

/*  PRINT  DATA  A DO  I1 1 LINK  */ 

CALL  MSG  ( USED  LINK  ' | | K V T L R M L K ( ( ' PETWEKN  '(IRVTLKMSIJJ 

' AND  ' | | N VTLTOLC ) ; 

FHNCT -DELVD;  /*  DELETE  IT  */ 

CALL  rnTO(fl,2); 

iv  STATUS--  OK  THEN  SIGNAL  CO  N P IT  ION  (T  OT  ER  R ) ; 

FUNCT  - RF  A T V ; /*  READ  NFX'T  VAR1ACI.E  RECORD  */ 

CALI  D 3 10  ( s,  ?)  ; 

IF  STATUS  ->=  OK  THEN  SIGNAL  CO  NFIT  ION  (TOT  ERR)  ; 

FN  D; 

CALI  MSG  ( • AND  IS  NOW')  ; 

/*  NOW  ADD  NEW  IINKAGF:  ♦/ 

CALL  A D D 1 OUTING; 


END  /♦  RF  TRUNK  */; 


! 


/*  SUBROUTINE  CL_CIFCIJIT  */ 

/*  */ 

/*  T1U  j SU33CUTT  N F.  PERFORMS  THE  ACTION  INDICATED  BY  A %C  REQUEST.*/ 

/*  IF  Tilt  SPIC1FIFD  CIRCUIT  IS  PRESENT  IN  '’'IIS  DATA  DASE,  THEN  THE  */ 
/*  RMCTFRLC,  — FF AC,  — TCLC,  — "'FAC  FIELDS  ARE  MODIFIED  AS  INDICATED.*/ 
/*  */ 

/*  C I._CI  ECU  IT  IAS  NC  PARAMETERS.  ALL  V ALU  FS  ARE  OBTAINED  FROM  */ 

/*  GLOBAL  VARIBALES  DECLARED  IN  THE  MAIN  PROCEDURE.  */ 


Cl.CI'KrUIT:  PROCEDURE; 

CICLARF  KSYC  CU A E ACT F F (9 ) ; 

K FY  C=STK ING  ( IN  DAT  A . R MCTC TP L ) ; 

/*  CHFCK  for  PRESENCE  OF  CIRCUIT  R’-'CCRD  */ 
v UNC  T = RE  ADM  ; 

F IL  F I T=  ’ ’’MC"’*  ; 

CCN?FCL=KEYC ; 

FI.ML  1ST  = RMCT_ELEM ; 
call  mo  (7  ,.?>  ; 

IF  S T A T U 3= ' M R N p ' THEN  /+  MASTER  CIRCUIT  RECORD  NOT  FOUND  */ 
DO; 

ST  A TUS=  C K ; 

CALL  MSG  (8,  • SPECIFIED  CIBCUTT  NOT  IN  DATA  BASF.'); 

/*  KALI  THROUGH  AN  I RETURN  */ 

END; 


i 


3-158 


V 
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LL-'T  IF  S^ATUS^CK  THEN  /*  CIRCUIT  PRESENT  IN  DATA  BASE  */ 
PO; 

/*  UPDATE  LCC  FIELDS  */ 


/*  DISPLAY  "EEFCRE"  VALUES  */ 

/*  <?TM  P>  */  CALL  i1SG(U,  'BEFORE:  ' | | STRI  NC  (Cl  RCUITSITE1)  | | ' 1 

| | STRING  (CIRCUIT  SITE  2)  ) ; 

TF  FRLC-»='  * THEN  RMCTFRLC  = FRI.C  ; 

IF  FPLC  = ' * ' THEN  RMCTFRLC=»'; 

TF  FF  AC->  = ' ' THEN  RMCT FF AC= F F AC ; 

IF  F r A C = * * ' THEN  R HCT^FAC = • » ; 

IF  TOLC-i  • THEN  P.  HCTIOLC  =TOLC  ; 

IF  TOLC=  ' * ' THEN  R NCTT CLC= • • ; 

IF  TFAC-="  Til F N RMCTTFAC=m FAC; 

IF  TFAC  = ' * • THEN  F .NC TTF AC = • • ; 


' 

l 

t 

\ 


F U N CT  = WF  IT!*!  ; 

.ALL  PPT  1 (7  ,2)  ; 

IF  S”  ATUS-t-OK  THEN  SIGNAL  CONDITION  (TCTERE)  ; 


/*  DISPLAY  "AFTER"  VALUES  */ 
/*  <Tr’NF>*/  CALL  US  G ('  , ' AFT  FP: 

p NO  ; 


' | | ST  FIN  G(  CIRCUIT  SITE  1)  | | • • 

| | ST RI  NG  (Cl  RCIIITSITE2)  ) ; 


ELS'’  /*  INVALID  STATUS  TRYING  TO  L'’lCArpF  CIRCUIT  RECORD  */ 
SIGNAL  CCNPiriON (TOTERR)  ; 

RETURN  ; 

FNP  /*  C L_ C I P C H I T V ; 
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SUBROUTINE  CL  TRUNK 

* / 

m.-i  2 M K i ) t)  T T N F,  PLRFOi'  MS  tHe<  */ 

/*  -F  SPECIFIC  TRUNK  're  IVPICATKD  FY  A KT  REQUEST.*/ 

'*  -'fTFFiac,  -n'lC  1 N data  EASE,  THEN  the  */ 

'l  TO8  «»  *®»m»  »"i5dic,tbd.v 

/«  CLOE.L  ?»wn^ KWM^Tg'Si  mi  ?!«„„£"  omim  ««  V 

L l_T!iDNK  : FRCCErriFc  • 

• TCLAR?  KrYT  CUA  FAC’EF  (7)  ; 

KFYT^STF  INC  (INDATA.  RMT^CTRL)  ; 

w!",;;!  unmet  tr  »<?>  ntw  v 

F 1 L F 1 T - * T ” R » ; 

C C N T P C I - K Y T ; 

* I.  .v  L 1 S T - 2 M ? R c ^ c ,t  . 

CALL  P 3 T C ( 7 , 2 ) ; 


, ...  STATUS-*  " irN  /*  vn.-^rr,  rr\  i- 

PO;  ‘ ‘ Fh  rRUNK  FECORD  NOT  FOUND  */ 

STATriS=CK ; 

^ A L L M S 0 ( !*  * ; o v r*  ■-  r*  - 

mi  ,,T*  ’*«• '»  . 


FLSF  IF  ST  ATUS - CK  THEN  /*  TRUNK  1KESFN7  IN  TATA  F AS  F */ 

no; 

/*  UPDATE  IOC  FIELDS  */ 


/♦  nisi  LAV  " EFFORT"  VALUES  V 

/*<TKMr'>*/  CALL  M SG  C1 , ’ BFFORE  : • | | STRI  NO  ( T Ml  NKSIT  ? 1)  | | • 

| 1 STRING  (TSUN  KSITE2) ) ; 

IF  FR  LC  -«=  • • THEN  RUT  KF  PLC=  F ELC  ; 

IF  FK L C = ’ * ’ TH^N  R HTP  FK  LC  = ’ ' ; 

Is-  FF  AC-»=  • • THEN  PMTPFFAC-FFAC; 

IF  F A C = • * 1 THEN  R MT  RF  F AC=  * ' ; 

IF  TOLC-  = ''  THEN  RMT?TOLC=TOLC  ; 

I p TOLC='*'  THEN  R NTf.  TOLC  =•  • ; 

IE  IF  AC-»  - ’ ' THEN  RMT  R?  F AC  =T  F AC  ; 

IF  T F A C “ ' * ' THFN  R NT  FT  F AC=  • • ; 


FUN C™= HR  ITM; 

CALL  DDI  M7,2)  ; 

IF  ST  A TD  S-*=OK  THEN  SIGNAL  CONDITION  (TOTEKR)  ; 


/*  DISPLAY  "AFTFP"  VALUES  */ 
/*<TK  «!•>♦/  CALL  MS  G , ' A FT  F R : 


' | | STRING  (TKMNKSITK1)  | | ' 
| | STRI  NCI  (TRUNK  SITF  2)  ) ; 


FLSF  /*  INVALID  STATUS  TRYING  TO  LOCATF  TRUNK  RECCED  */ 
SIGNAL  CONDITION  (TCT  ERR)  ; 

RETURN; 


END  /*  OL_'1’R  UN  K ♦/  ; 


I 
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/*  SUBROUTINE  CL_IINK 

/* 

/*  THIS  SUBROUTINE  PERFORMS  THE  ACTION  INDICATED  EY  A *L  REQUEST.*/ 

/*  IF  THE  SPECIFIED  LINK  IS  TRESFNT  IN  THE  DATA  BASE,  THEN  THE  */ 

/*  PKIKFELC,  — FFAC,  — TCLC,  — T F AC  FIELDS  ARE  MODIFIED  AS  INDICATED.*/ 

/*  V 

/*  CL_LINK  HAS  NC  PARAMETERS.  ALL  VALUES  ARE  OBTAINED  FROM  */ 

/*  GLOFAL  VARIABLES  DECLARFD  IN  THE  MAIN  PROCEDURE.  */ 

CL_LT  NK:  PROCEDURE; 
tECLARE  KEYL  CH A F ACT E R (S ) ; 

K FYL  = IN  DATA. RMLKCTRL  ; 

/*  CHECK  FOR  PRESENCE  OF  LINK  RECORD  */ 

F UNCT  = PEADM; 

F IL  E I B=* FMLK* ; 

C CNTRCI  = KE  YL ; 

ELML IST=RMLK_EL EM; 

CALL  DBI 0 (7  ,2)  ; 


Ip  S'rATUS  = ' MPN”'  THEN  /*  MASTER  LINK  RECORD  NOT  FOUND  */ 
DO; 

ST ATUS=  CK ; 


CALL  MSG  (P,*  SPECIFIED  LINK  NOT  IN  DATA  BASE.*); 
/*  FALL  THROUGH  All!  RETURN  */ 

END; 
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j < 

I ( 


' 


ELSE  IF  STATI!S=OK  THEN  /*  LINK  PPESFNT  IN  DATA  BASE  V 
DC; 

/*  UpDATE  LOC  FIELDS  */ 

/*  DISPLAY  " 3 F FORE"  VALUES  */ 

/*  <TFMP>*/  CALL  IS  U C','  EEIC  RE:  ' | | ST  R IN  0 (L  INK  S ITF  1 ) | | 

| | ST RI  NG  ( II  NKSITE2)  ) ; 


IF 

TF 

FRLC-= • ' 
FRLC=' * ' 

THFN 

THEN 

F«LKFFLC=FRLC; 
R ELK  FRLC=  • ' ; 

IF 

IF 

F F A C ' ' 
FF  AC= ' * ' 

THEN 

THFN 

RMLKFEAC  = FC'AC  ; 
R MLKFFAC  = ' • ; 

I F 
IF 

TOLC-»  = ' • 
TOLC-*  * ' 

THEN 
THP  N 

RMLKTCLC=TCLC; 
R MLKT  CLC=  • ' ; 

IF 

IF 

T F AC  ->=  ' ' 
TF  AC= • * ' 

THFN 

THEN 

R MLKTFAC=  TFAC  ; 
R MLK  TFAC  = ' • ; 

F U NCT=  VI  RIT  M ; 

CALL  DB 10  (1,2); 

IF  STATUS-=OK  THEN  SIGNAL  CONDITION  (TOTERR); 


/*  DISPLAY  "AFTER"  VALUES  */ 
/*<TFM?>«/  CALL  MSG  C , 'AFTER: 

END; 


' | | STRING  (LINK  SITE1)  | | 
| | STRING  (LINKSITE2) ) ; 


ELSE  /*  INVALID  STATUS  TRYING  TO  LOCATE  LINK  FECORD  */ 
SIGNAL  CONDITION (TOTERR) ; 

RETURN ; 


END  /*  CL  LINK  */  ; 


/♦  FUNCTION  ROUTE_TRACE  */ 

/*  */ 

/*  FUNCm  ION  ROtJTE_TRACF  REAPS  A MASTER  FILE  RECORD  FOR  EACH  TRUNK/  */ 
/*  LINK  USED  P Y THE  C T RC U I T/T R M N K TO  RE  ADDED  AS  5FECIFLFD  DY  THE  */ 

/*  USFF.  THE  SITES  CONNECTED  BY  THE  TRUNKS/LINKS  ARE  EXAMINED  FOR  */ 

/*  CONTINUITY  AND  A RECORD  OF  THE  END  FOI NTS  IS  MAINTAINED.  */ 

/*  ♦/ 

/*  FOUTESPEC  POINTS  TO  THE  HEAD  OF  A LIST  CF  RCUTE_CHAIN  NODES,  F AC  H */ 

/*  OF  WHICH  CONTAINS  A S FECIFIED  CONT FOL  KEY.  THE  SITE  FIELDS  ARE  */ 

/*  FILLED  IN  PY  THIS  FUNCTION.  */ 

/*  */ 

/*  IF  POUT  S_TR  ACE  DETECTS  A DISCONTINUITY,  IT  TERMINATES  THE  TRACE  */ 
/*  AND  RETURNS  THE  VALUE  FALSE  ( T « E)  . */ 

/*  V 

/*  IF  A CONTINUOUS  PATH  IS  TRACED,  THEN  THE  ENDSITES  ARE  */ 

/*  RETURNED  AS  PAP  AM HTTPS,  AND  THE  FUNCTIONAL  VALUE  IS  TRUE  */ 

/*  V 

/*  THE  CALLING  r RCG  F AM  CHECKS  THAT  ROUTESPEC  IS  NOT  NULL.  */ 

ROUT  F_TC  ACE : PROCEDURE  (FROMSITE  ,TOSITE)  RFn'U  RN  S ( 31  T ( 1)  ) ; 

DECLARE  /*  PARAMETERS  */ 

FPCMSITE  CH APACT ER ( 1 1) , 

TOSITE  CHAR ACTER  ( 1 1) ; 

DECLARE  SEGMFNT  CHARACTER  (5)  VARYING, 

SIT E_ INDEX  BINARY  FIXFD(1S,0), 

FIR  ST_?TME  HIT  (1  ) ; 

/*  PARAMETERS  SHOULD  R 2 INITIALLY  BLANK  */ 

F R OM  SI IF  = • « ; 

TOSITF='  •; 
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/*  r K E t AH”  TC  READ  PASTES  FILE  FFCOKCS  */ 

FUNCT=RF  ATT; 

IF  FEyIlEST_LFVEI.=  'C*  "'.IKK 
DO; 

FI  LEI  D=  • RMTF’  ; 

F.LMLIST=R  NTF  _LOC  S; 

SEGMENT®  'TRUNK*  ; 

S ITF_ IN  DUX  = 8; 

END  ; 

ELSE  IF  REQHFST_LFVEL=' T*  THEN 
DO  ; 

FILEID^'RHLK'  ; 

E LMLI ST= 3MIK_ICCS  ; 

SEGMENTS  LINK*  ; 

SI TE_I  NDFX=6  ; 

EN  r; 

ELSE  /♦  THIS  "CANNOT " HAPPEN  */ 

DO; 

CALL  HSG(12, 'FUNCTION  ROU " F_T RACE  CALLED  WITH  R EQUEST_LEVEL=  • | | 
R EQOEST_LF VEL)  ; 

F ETHFN  ('Til)  ; 

FND; 


/*  NOW  PROCESS  THE  ROUTE  CHAIN  */ 
SPTR=POHTESPEC; 

CC  W HILE(RPTF-=NULL)  ; 


CONT  KOL=RK  E Y ; 

C AIL  DPIO  (7,2); 

IF  ST ATUS='  VRN F'  THEN 
DO  ; 

CALL  !1SG  (3,  ' SnECIFI  ”D  ' | | SEGMENT | | ' '||FKEY|| 

• NCI  PRESENT  IN  TATA  EASE.'); 

Ir  NEXT  R-»=  NULL  THEN 

CALL  MSG (4,' SUBSEQUENT  ' | | SEC.  ME  NT | | ' S NO"'  EX  A FI  NED.  ’)  ; 
ST  AT  HS=  CK  ; 

RETURN  (•  D»  p)  ; 

END  ; 

IF  ST  AT  US  ->=  OK  THEN  SIGNAL  CONE  IT  ICN  (T  OT  EF  R)  ; 

/♦  W2  HAV  F A GOOD  RECORD.  NOW  GET  Tli"  SITF  DATA  ♦/ 

/♦  AND  CHECK  IT  O'lT.  V 


ESITF  1 = StJDSrE(IOASE»,  SITF_  INDEX  ,3)  ; 

RSITE2=5UBSTF  (10  ARE  A,  SIT  Z INDEX  ♦ 11,8)  ; 

/♦♦♦(FOR  NOW,  ONLY  USE  8 BYTES  INSTEAD  OF  11  BECAUSE  NCT  ALI.  ♦♦*/ 
/♦♦♦  FACILITY  FIELDS  ART  SPECIFIED  IN  '"HE  CURRENT  DATA  BASE.)***/ 
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/*  T F "'HIS  IS  T ME  FI!’ ST  SEG  E* " N T SPECIFIED,  JUST  CCFY  THE  SITES  */ 

/*  TO  Ti:r  PARAMETERS;  CTHFEWISF,  HF  DU  SOME  COMPARISONS.  */ 

IF  FP Tt?  = RO UTE SP  EC  THEN 
DO  ; 

FROM  S IT  E=3  SIT'’  1 ; 
msiT.-I=RSITE2; 

END; 

F LSF 
po  • 

’ /*  WF  COMPARE  THE  CURRENT  FROM-  ANF  TOSITE  WITH  THE  CURRENT  */ 


/*  ^ SITE  1 AND  FSITE2.  T5IFHF  ARE  SEVEN  CASES 

THAT 

CAN  PE 

*/ 

/*  CCLLAFSED  INTO  t'VE.  THE  TWO  THAT  WE  DON'T 

WORRY  ABOUT 

*/ 

/*  V ’ FRO. MS ITT  AND  TO SI IF  EQUAL  TO  RSITE1  AND 

RSITE2 

IN 

V 

/*  FT  ?H  E’’  CP  P T R.  "p  H ES  F AFF  HANDLED  PROPERLY  BY 

THE 

FIRST 

*/ 

/♦  "WA  CHECKS.  < N 0 T F TO  SEIF:  THERE  IS  STIIL  A 

FUG 

.> 

*/ 

/* 

GIVEN:  FRCM5ITE  TOSITp 

TL  1 

TL2 

V 

/* 

A P 

V 

/♦ 

V 

/*  1 

♦ / 

IF  TCSITS  = R5 IT  E 1 THEN  TOSITE  =8SITF2; 

/* 

B 

C 

*/ 

/*  2 

♦ / 

ELSE  IF  TOSITE  =RSITE2  THE  N TOSITE  = RSITE1; 

/% 

C 

B 

V 

/*  i 

*/ 

■:LSF  if  FRCMSIT  E=  RS  IT  F.  I THEN  FROMSITE=RSITF2; 

/* 

A 

C 

V 

/♦a 

V 

EtSI  IF  FROM  SITE=S  SI  TE2  THEN  FF  C MSI  TE=  P.SITF  1 ; 

/* 

C 

A 

V 

/*  s 

♦ / 

/*  (HANDLED  BY  CASE  2: ) 

A 

B 

*/ 

/»  b 

* / 

/*  (HANDLED  BY  CASE  1:) 

8 

A 

V 

/*  7 

* / 

FLSK  /*  THEY  DON ' T MATCH  IN  EITHER  ORDER: 

C 1 

C2 

*/ 

DC; 

CALL  MSG  ( F,SBG  MFN1||  ' '||RK?Y|| 

’ EETWFFN  SITES  ' | | RS  IT  F 1 | | ' AND  * | | R S I TH  2 | | 

* NO  I REACHABLE  FRCH  PREVIOUS  ' | | SEGMEN T|  | ' • ' ) ; 
RETURN  ( • • P)  ; 

F «;  u ; 

7ND; 

/*  ACVANC*  DO  N TXT  ROUTS_CHAIN  NUDE  */ 

R rir  = NEXTB ; 


END; 

F ETH  t,N  (•  1 ’ P)  ; 

INF  /*  Fni’^E  TRACE  */  ; 
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/*  S H BP  OUT I NK  A DD_ROU  TI NG 

/* 

/*  "HIS  S II  PH  CUT  I NC  FOLLOWS  THF  LOUT  E_CH  A IN  NODES  AND  ADDS  A 

/*  V ARIABLI  DFCoRD  FOR  EACH  TPUNK/LT  NK  SPECIFIED.  THIS  FRCVICES 
/*  THE  LI NK AS F!  SHOWING  THE  ThUNKS/LINKS  USED  BY  THE  CIRCUIT/7R UNK 
/♦  PFING  ADDED. 

/* 

/*  Jr"_"0  I" INS  DOS S NOT  FH^E  THF  BASED  STRUCTURE  VARIABLES. 

ADD_RCUTI NS : FKOCFDURE; 


DECLAFF  KEY 


c i 'u  rv  "» 


CHARACTER  (D)  VARYING,  /*  CONTROL  KEY  ♦/ 
CHARACTER  (5)  VARYING,  /*  'LINK1  OS  'TRUNK*  */ 


TSITE  CH  A R A C T r R (11), 

RKEYIFN  PTNARY  F IX  ED  ( 15  , ) ; 


/*  TFFFCFARY  SITE  FIELD  */ 


/+  SET  U?  TOTAL  FOR  ADDIN'.  TO  KVCT  OF  RVTL  */ 

FUNCT=APDVC  ; 

IF  R E’O  HF  S T_  L r V 0 L - ’ C • T li  F N 
DO; 

FI  L:’T  D = ' "’VC~  ' ; 

P E r ED  = ' LKC1 ' ; 

L K F ATU  = ' RHCTLKCT ' ; 

'L  v.  L I S T -R  VCT_rLEH ; 

;<r  Y r st r T no  ( i n d at  a.  fnctctkl)  ; 

FK  FYL  *=■*  = 7 ; 

5 F G M T >1  T = 'TRUNK  ' ; 
r ND  • 

LLf  R IF  F EO U L S I_L E V EL  = ’ T ' TH  F N 
DO; 

ETL  EID  = ' R VTT  ' ; 

e:;f"'r=  ' lktl'  ; 

I K P AT’I  = ' R.NTFLKTL'  ; 
r'LMLTST=3VTL_ELE'1; 

K E Y=STR IN  n ( IN  D A T A . P D TEC  TP L ) ; 

FKEYL?N=  S ; 

SFGHENT= ’ T TNK'  ; 

'NR; 

r LSE  /*  THIS  "CANNOT"  H A F P r N */ 

DO; 

CALL  HSG(1S, 'SUBROUTINE  ACC  ROUTING  CALLED  WITH  R ECU EST_LEV EL 
R EQ  U ES I _ LF V E L ) ; 

F ETURN  : 


0%-  FvJl.LOW  r iH  I N ASP  M>P  Tit,’.  VKCOSPS  ’/ 

: = TOP  TKP  PFC  ; 


’KFPATP  TO  1RPKK  F!O.V  AND  TO- LUC  A 1 1 0 NS  IN  VAPIAPI!-  KEtOFP  */ 

. nr  n mll  t i on 

'\UL  nsod^'APP.iair'ino  callfc  no  hopt!-:  specification 

FTP  CJ  ; 

' NP  ; 

iSI  : I WK  1 I 1STTF1  WKSII  E2  7 HFN  ISITF  F S I T E 1 ; 

g j * r SITE 2 UK  SITE  1 | K SI  "if. 2 v< K S . 1 ■ . . 1 . . N i ••  - - - ••  • 

1 Il  ’ K-'YII*  F N !'  1 0 1 NT  S IPP 1H1 P FFLY  POT.  TO  FIX 


C A L 1. 

HSC.  (1.', 

KFY| 

| • V.NPFOl  NT  S 

IP  P FOP 

CAM. 

XIPOp,' 

i.  P.-i.vir  i 

T . * ) ; 

CALI 

'1PO{  , • 

2.  own  ov 

Till  FK 

• 

I tl 

mr  ’ i i pkfy  i 

1 ' ' 1 1 L' 

CALI. 

fiKTU 

•'I  PC  ( 

1,  N ; 

».  '"'-API' 

■ | | K r’  Y ) 

ro  MIL  ’■  ( ^r'TI^-»='I  DLL)  ; 

/*  ;h;  FC'.I  F^OX-  AND  TO- LOCATION  FIELDS  IF  NECESSARY  */ 

I"  PS1 1 Cl  = TSITL  THEN 
TS IT E =P  SITE 2 ; 

E LSr 
DO  ; 

TSITE=  Fol T El  ; 

R 3 1 T F 1 =RSITE2; 

PSI~r2=?SITE; 


I AT  F A=K  EY  | |StiPS"R  (IKEY,1  ,R  KS  YLE  N)  | |RSITE1|  | RSITF2; 

CALL  DUTC  (9,2)  ; 

IF  S'"ATUS='  S SMI  1 THEN  /*  NO  SECONDARY  MASTER  RECORD  */ 

DO  ; 

S'7"  ATUS=OK  ; 

CALL  MSG (9 , 'SIT  E FIELD  '||RS1TF1||'  OF  • J 1 R SXT3  2 1 | * IN 
RKEYII'  MASTER  RECORD  MAY  BE  INVALID.'); 
CALL  M 3G { 9, ' HSFR  SHOULD  DFLETE  '||KRY||'  AND  PE-ADC  IT 
'AFTER  COBFFCTING  LOCATION  FIELD.  OH  'll 
' ADDING  A NEW  SI TE. ' ) ; 

RETURN  ; 

END; 

IF  S'"  ATU5-=OK  THEN  SIGNAL  CONDITION  (TCTERF); 

/*  DTSFLAY  MESSAGE  ALCUT  LINKAGE  */ 

CALL  MSG  ( USING  ' | | S FOMENT | | • ' | | RK EY  | | • BETWEEN  '|| 

R S ITE 1 | | ' AND  ' | | RSITF2)  ; 

K FT  R = NEX  T K ; 

END; 

FND  /*  A F E_RO  UT IN  G */  ; 
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/♦  SUBROUTINE  BEAD  REQUEST  */ 
/*  V 
/*  THIS  SUBROUTINE  IS  INVOKED  AT  THE  EEGGINING  OF  THE  MAIN  */ 
/*  PROCESSING  LOOP  TO  PROCESS  THE  INPUT  SPECIFICATIONS  FCP  THE  */ 
/*  USER'S  NEXT  REQUEST.  WHEN  R F A D_F  EQH  EST  IS  CALLED,  THE  CURRENT  */ 
/*  SEPARATOR  MUST  BE  S,  * , OF  % . */ 

/*  */ 

/*  THIS  ROUTINE  CLEARS  THE  INPUT  DATA  AREA,  PERFORMS  SOME  */ 
/*  COMMON  PROCESSING  (INCLUDING  EXTRACTING  THE  REQUEST  AND  */ 
/*  REQ II  FST_  LEVEL  FIELDS),  AND  THEN  CALLS  ONE  OF  FOUL  SUBROUTINES  TO  */ 
/*  PROCESS  THE  INPUT  SPECIFICATIONS  FOB  i,  -,  »,  CP  I.  WHEN  */ 
/*  RE AP_  REQUEST  RETURNS  TO  THE  POINT  OF  INVOCATION,  INDATA  CONTAINS  */ 
/*  THE  INPUT  SPECIFICATIONS  READY  FOP  ACTUAI  PROCESSING.  IF  A */ 
/*  SERIOUS  SYNTACTIC  ERRCR  WAS  DETECTED,  PREVENTING  SUCCESSFUL  */ 
/*  PROCESSING,  REQUEST  IS  SET  TO  NEXT  SO  THAT  THE  MAIN  LOOP  WILL  */ 


/*  PROCEED  TC  THE  NEXT  REQUEST  INSTEAD  OF  PROCESSING  THE  CURRENT  ONE.*/ 
PEA D_ REQUEST:  PROCEDURE; 


/*  THIS  ERROR  SHOULD  NEVER  OCCUR,  EUT  CHECK  FOR  IT  ANYWAY:  */ 

/*  WHEN  R E AD_REQ  UEST  IS  CALLED,  THE  CURRENT  SSPARATOP  CHARACTER  */ 

/*  MUST  INDICATE  THE  BEGINNING  OF  A REQUEST.  IT  IS  EITHER  THE  */ 

/*  FIRST  CALL  (IN  WHICH  CASE  THF  SEPARATOR  HAS  BEEN  CHECKED  BY  */ 

/*  THE  CALLING  PROCEDURE)  OR  THE  PREVIOUS  CALL  OF  THIS  ROUTINE  */ 

/*  HAS  FORCED  THAT  TO  nE  TRUE.  */ 

IF  VERIFY  (SEPARATOR, ' a)- •%')  -» =0  THEN 
DO; 

CALL  MSG  (12, ' SUBROUTINE  RE  A D_RF Q UE ST  INVOKED  WITH  SEPARATOR  = •" 

| | SFPARATORI  | ' ' ' ' ) ; 

CALL  FLUSH_ RE QUEST ; /*  FINE  BFGINNING  OF  NEXT  RFQUEST  */ 

R EQU  EST  = N EXT;  /*  FORCES  CALLING  PKCC  TC  HEAT  NFXT  REQUEST*/ 

RETURN  ; 

END; 

/*  il  AS  THE  D °L  STF_ON  L Y FLAG  BEEN  SF T BY  THE  D t L_  SITES  SUBROUTINE?  */ 

IF  DELFTE_ONLY  6 S EP  A B AT  C B-.=  ' - • THEN 
DO; 

CALL  MSG (8,' ONLY  DFLETFS  PERM  ITT  F D FOLLOWING  A SUCCESSFUL  -S  '|| 
•REQUEST.  "•  | (SEPARATOR  | | " ' NOT  PROCESSED.'); 

CALL  FLUSH  REQUEST; 

RE  QUEST= NEXT  ; 

F FT URN ; 

END  ; 

/*  C LrAF  USER  INEUT  AREA  */ 

IN  DAT  A=  ' •; 


/♦  cr^riON  iRocessing:  »/ 

/*  all  :;l  ;vxs  must  p eg  in  with  "efqupst"  ( n,  -,  #,  or  *)  */ 

/*  FOLLOWED  PY  "P  K.)  I)  EST_  I.EVFI,"  (C  , T , I,  CD  S)  EtilLOWFD  BY  A CCNTBOI.  */ 
./*  KEY.  LOCATE  ?M  OS  F COMMON  Im  FIS,  TIIFN  CALL  SEPARATE  ROUTINE  TO  */ 
/*  PROCESS'  INPUT  FIR  INDIVIDUAL  REQUESTS.  */ 

RED  UFST - SR  PA  RAT OP  ; 

r F !.  FNGTII  ( fTpr  ) > ■>  THEN 

REQUEST  _L  ?VEL  -'PI  EST-  ( ITEM,  1,1); 

ELSE 

REQHF.ST_LFV.a='  • ; 

IF  VERIFY  ( H E Q H E S T _ L E V F.  L , * C T L S • ) THEN 

DC; 

CALL  M SO  ( H,  • UN3  ECOGNT  ZED  RF.QHFST  ' • • | | REQU  EST  | | REQU  EST_LEV  EL  | | 

NOT  FROCESS  r-C.  ' ) ; 

CALL  FLU  '>!I_'R !',0  UESI; 
r g Ul'ST=  NEXT  ; 

R FTMKN ; 

END  ; 

/*  CONTROL  K'-'Y  SHOULD  START  IN  OR  FOLLOWING  THE  SECOND  UYTE  OF  ITEM  */ 
IF  L SN  GT  H ( IT  FM)  < 1!  TH"N 

T T ■'  M-  • I • 

FLS  F 

' T 'M-SUDSTR  (ITE  M,2)  ; 

IF  1 T ? M=  1 * THEN  /*  ALL  BLANKS  OP  NULL  ♦/ 

DO; 

CALL  MSG  (H,1  NO  CONTROL  KEY  SPECIFIED.  REQUEST  NOT  PROCE SSED . • ) ; 
CALL  FL  IIS  H_K  "QUEST; 

RE Q OES  r=  N ^XT ; 

R PTURN ; 

ND  ; 

KFY -S'lPSTR  (ITFT  , VERIFY  (ITEM,  • '));  /*  STRIP  LEADING  EtANKS  */ 

/*  RFTF1FVE  NEXT  SEPARATOR  AND  ITEM  FROM  INPUT  ♦/ 

CALL  INPUT  (S  F r A R A':>  0 R , I"  E M)  ; 


/* 

/* 

/* 


3EF0F1  PROCESSING  REMAINDER  OF  REQUEST, 
H0M7I  NO  INFORMATION,  FRFF  ALL  TFEVIOUSLY 
N OOFS. 


WHICH  MAY  INCLUDE 
PSET  ROUTE  CHAIN 


R PTE -ROUT  ESP  EC  ; 

SOUTFSTKC - NULL; 

rc  W H II  F (RPTR-.-NHLL)  ; 

LAST L- 5PTR  ; 

HTTP  = N F < T P ; 

I \i;T  P -“>  ROUTE  CHAIN; 

ENP; 


♦/ 

V 

*/ 


/♦  CLEAR  Ul'rA 
stoat  :s: tp 
ITT  AT  FI.  INK 
T TO  A FORK 

' CH  I’ 


FI,  A OS  */ 

I ')  n. 

■ • 

< ' I 11  • 

• i ’ R : 


UrTATEC 

/*  n iw  r pools:;  :;enainp.:r  of  inoiit 


1~ 

HE 

CUPS 

n - 

A n 

■PC  HA  NOE 

Till:  N 

C ALL 

FI.: 

? F 

TE 

R LOH’ 'S 

[*  - 

P F 

LKTE 

Til 

FN 

CALL 

K L : 

I F 

RP 

OU”S 

r 

RI- 

ROUT F 

T H E N 

CALL 

EL: 

' E 

1 r 

f'  X: 

C»  FS 

r - 

CH 

A N 1 1 F L ( F C 

TH 

E N 

CALL 

'I.: 

>F 

PC 

: / 

* 

TUTS 

h 

C A 

N NO  T"  |!A 

PP 

■'N. 

*/ 

CA 

LI 

1S(; 

1 1 

a 

— $ 

• r rc'II  ESP 

r 

I EL 

, 0 IM  P 

•read  :u: 

OH 

e:  s i 

• III 

CALL 

FLU 

SH 

ft 

" > T ; 

PL 

V i*  'T'  - 

,'I  EXT 

J 

OP  CURRENT  EE  CHEST 
K E AP_  A C CC HAN  GE; 
REAP_ DELETE  ; 

RE  A D~ RE ROUTE; 
KE’AP_CH  A NOELCC  ; 


►/ 


FOTFRLY  SET 
I | Ri’vJtl P. ST  | I 


W ITH  IN 


SUBROUTINE  • | | 


t N P; 


RFTII  FN  ; 

/*  LCOICAL  ENP  OF  PRPCESSINO  FOR  .SUBROUTINE  R E AD_R  EOUFST  */ 
/*  PROCEDURES  INTERNAL  TC  P F A D_ F ECU  ES  F FOLLOW:  ♦/ 
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S il  it  ROUT  INF  U M'  ACPCHANGF 


* / 


r - * 

/ * 

/*  THIS  SUP  POUT  I Nr,  CALLEP  IY 

/*  INPUT  FOE  AN  A PUCKA  NS  V REQUEST. 
/*  US  EE  ’ S INPUT  SPECIFICATIONS  A ! E 
/*  F t RTH F U r RCCESS I NC. 


!;  E A r REQUEST,  PROCESSES  THE  IIS 
W il  FN  REAP  ADPCHANGE  FINISHES, 
IN  THE  INDATA  STRUCTURE,  R F A PY 


«■'  E AP_  AT.  PC  HAN  C.E:  PROC  EPUR  F. ; 

IE  REQUEST  LEVTI.  *C'  THEN  /***  CIRCUIT  ♦♦*/ 

DO  ; 

CALL  P F.  A D_SHP  E I El.u  S ( Ei)  ; /*  UP  TO  t>  SUPFIFIDS  SFP  FY  " »/ 

ST  HI  NP,  (1  NP  AT  A.  RMC  TCTRL)  -KEY; 

INI)  AT  A.  EMOTE  l AG=S  KTEL  All  ( P E I EL  P ( <)  ) ; 

IN  T ATA . KM CTR  STP  =D  E IELP  {?)  ; 

I NP  AT  A.  FMCTR  A PL-  PEI  CLP  ( I)  ; 

I N P AT  A . FM  CT 1 D EN  M'FlEl.P  (4)  ; 

I NP  AT  A . PMCTX  «EE- PE  I FLP  (r>)  ; 

I NP  AT  A.  F MCTFI  LL  - U E L fc  LT  (f>)  .* 

IIPDATECIRCOIT  = STRING  (PET  F IP)-  • • 


IE  SF  PAR  ATC  ti  «:•  THEN 

CALL  R F A ROUT  I NO;  /♦  TRUNK  ROUTING  PRESENT  */ 

FNP; 

El.SE  IF  REQUEST^  LEV  FL  ' T ' THEN  /♦*♦  TRUNK  ***/ 

PC; 

CALL  R E A 0_ SUP FI FLP  f (u)  ; 

ST  R I NO  ( I NP  AT  A.  KMT  He  ? KL)  =K  FY  ; 

IN  T AT  A . RM  TR  FLA  0.  SE  TF  LAC.  (P  F I ELP  ( 1)  ) ; 

1 NP  AT  A . EMTRIU.  AT  - DU  FLP  (2)  ; 

I N P A r A . FMTRTCAF=PET  FLP  ( ')  ; 

IN  FATA.  KMTR  PAN"  PE  l/I.P  (4)  ; 

I NPATA.  HMTRAV  A I.  I'M  FLP  (‘>)  ; 

INPA^A.  M TK  FILL  DPI  ELD  (P)  ; 

0 E P A T F, TRUNK  ST  R T N ; ( i:  FI  H T) • •; 


I F SETAE  ATC  R=  • : • THEN 

CALI.  REAP  POUTING;  /*  LINK  R CUT  I NO,  f RES  F NT  */ 


♦ / 

E R */ 
THE  */ 
FOR*/ 

♦ / 


ELSF  IF  REQUES r_LFVEL= ' L • THEN  /***  LINK  ***/ 

DO; 

CALL  READ_SUEFIELDS (4)  ; 

IN  DAT A . RMLKCTRL=KE  Y ; 

INDATA.  Rf1LKFLAG=SETFL  AG  (D  FIELD  (1)  ) ; 

IN  DATA. RMLKTP AN =D FIELD  (2)  ; 

I NPATA.  Fi1LKCCDE  = DFIELD  (!)  ; 

INDA'i'A.  RMIKFILL=DFIELD  (4)  ; 

HP  CAT  EL  INK  = STRING  (DFIELD) -.=  • •; 

IF  SEFAF\TCF=»  : • THEN 

CALL  REAP_SI'"’E_EAT  A;  /*  SITE  DATA  PRESENT  */ 

END; 

ELSE  IF  REQUEST_LEVFL=' S'  THEN  /***  SITE  (S)  ***/ 

CALL  READ_SITE_DA^  A; 

ELSE 

DO;  /*  THIS  "CANNOT"  HAPPEN  */ 

CALL  MSG( 12, • REQUEST  LEVEL  IMPROPERLY  SET  WITHIN  SUBROUTINE  • || 
•READ_ACDCHANGE:  ' ' ' | I REQU  EST_LEVEL | | • ' • • ) ; 

CALL  FL  US  H_R  EQ  UEST ; 

REQUEST=NEXT; 

RETURN; 

END; 

/*  CCMMCN  TEST  FCP  END  OF  REQUEST  */ 

IF  VERIFY  (SEPARATOR, V ALIE_END_S  EP)  -»=0  THEN 
DO; 

CALL  MSG  (4  , 'EXTRANEOUS  DATA  BEGINNING  ' " | | SEP  A R A TOR  | | 

' ' ' IGNORED.  ' ) ; 

CALL  FLUSH_REQUEST  ; 

END; 

RETURN  ; 

END  /*  RE AD_ADDCH ANGE  */  ; 


3-174 


/*  SUdROUTINF  P E A D_  T E L ET  E */ 

/*  */ 
/*  THIS  SU3RCUTINE,  CALLED  EY  R E A C_R  EQU  EST,  PROCESSES  THE  USER  * / 

/*  INPUT  '•OR  A DELETE  REQUEST.  WHEN  READ  DELETE  FINISHES,  THE  */ 

/*  USEF'S  INPUT  SPECIFIC Am IONS  ARE  IN  THE  INDATA  STRUCTURE,  READY  */ 

/*  FOR  FURTHER  PROCESSING.  */ 


READ_CEL  ETE:  PROCEDURE; 

/♦  TH  r F"  SHOULD  DE  ONLY  CONTROL  KEY  ( S)  SPECIFIED  IN  TELETE  REQUEST  */ 

IF  REQUEST_  LEV  EL=  ' C ' THEN  STRING  ( IN  D AT  A. RM  CTCTP  L ) =K  E Y; 

FLSF  IF  t?  EQU FST_LEV EL  = 1 T * THEN  SI  RT  NO  ( I ND  AT  A . h PIT  FCT  F 1)  = K F Y ; 

SIS E IE  SS  QU ?.ST_ I F.  V c L = ' I,  ’ THEN  INDAT  A . R fl  L KCT R 1=  KE Y; 

ELSE  IF  RSQOESr'lFVEL^'S*  THEN  CALL  READ  SITE  DATA; 

ELSE 

DO;  /*  THIS  "CANNOT”  HAPPEN  */ 

CALL  MSG< 12, • REQUEST  LEVEL  IPIPRCFERIY  SET  WITHIN  SUCFOUTINE  *)| 

' RE  AD_DEL  ET  E : • • • | | P EQU EST_LEV EL | | • • • • ) ; 

CALL  FL  US  H_R  EQ UEST  ; 

F F.Q!IEST=N  EXT ; 

RTTUSN; 

FN  D ; 


/*  COP1MON  TEST  FOR  END  OF  REQUEST  */ 

IF  VERIFY  (SEPARATOR, V ALIC_PNC_S  EF) -.=  r THEN 
DO; 

CALL  !1SG(U  ,»  EXTRANEOUS  INPUT  PEOINNINO  •"  | | SEPARATOR  | ( 

IGNORED  FOLLOWING  CONTROL  KEY  IN  DELETE  REQUEST.'); 
CALL  FL  U 3 H_R  SQ  UEST  ; 

F ND; 

FFTURN; 


END  /*  R F A D_DEL  EIF  */  ; 
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/*  SUBROUTINE  REAE  REROUTE  * / 
/*  V 
/*  THIS  SUBROUTINE,  CALLED  3Y  BE  AD_  REQUEST , PROCESSES  THE  USER  */ 
/*  INPUT  FOR  A REROUTE  REQUEST.  WHEN  EE AD_REROUTB  FINISHES,  THE  */ 
/*  USSR'S  INPUT  SPECIFICATIONS  ARE  IN  THE  INDATA  STRUCTURE,  READY  V 
/*  FCR  F U RmH E F PROCESSING.  */ 


PFAD_PL'?CUTE:  PROCEDURE; 

II  REQUEST  LFVFL-.=  'T»  THEN 
DO  ; 

CALL  MSG  (3 , ' I NV ALIE  REQUEST  ' • ' | | REQU EST | | R EQ U EST_L E VEL | | 
' ' * NOT  PROCESSED. *) ; 

C A I L FLUSH_ DEQUES? ; 
t\FQU25T=N  EXT; 

RETURN ; 

END; 

STRING (IN  CATA.RMTFCTRL)  =KEY; 

CALL  RT,AD_SUDFIFLDS(6)  ; 


IF  STRING  (DFIFLD)  -.=  « ' THEN 

CALL  MSG  (4 , • SPECIFIED  ^ATA  SUBFIEIDS  IGNORED.  '|l 
'USE  21  TO  CHANGE  DATA  FIELDS.*); 

IF  Sr RA  o a?OR=  • : • THEN 
CALL  ?FAC_R LUTING; 

Ir  VERIFY  (SEPARATOR,  VALID  FND_SEP)-.=  ? THEN 
DC; 

CALL  M SG ( 4, • EXTRANEOUS  INPUT  BEGINNING  * * ' | | S E F A R AT CR | | 
' * * IGNORED.  •)  ; 

CALL  FLUSH  REQUEST; 

r NO  ; 

RETURN; 

FND  /*  ? SAD_R EROUTE  +/  ; 
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T 1 


/*  subroutine  reap  changeloc  */ 
/*  ~ */ 
/*  THIS  5U3RCH7INE,  CALLED  EY  F F A C_  RE.HJ  EST,  PROCESSES  THE  USSR  */ 
/*  INPUT  FOR  A CHANGELOC  REQUEST.  WHEN  8E  AD_CH  A NGELCC  FINISHES,  THE  V 
/♦  USER'S  INPUT  SPECIFICATIONS  ARF  IN  THE  INPATA  STRUCTURE,  READY  */ 
/*  FOR  FU^THFR  PROCESSING.  */ 


REA P_ CHANGELOC:  PKOCFDUR  E; 

IF  REQUFSr_l.c’VEL  = 'C'  THEN  SIRING  (INT A TA.  RMCTCT  F I ) = K FY  ; 

FLSF  IF  FFQUEST_IFVFL='T ' THIN  ST  R I N G ( IN  D AT  A.  RM  TR CTK  L)  =K  E Y ; 

ELSE  IE  RED  H FST_LEV  FL  ='  L ' THEN  J NDAIA.  Rf!lKCTRI=  KEY  ; 

ELS? 

PO; 

C A I L NSG  (8  ,' INVALID  I:  FQU  FST  ' • ' | | R EQU  EST | | K EQU  EST_LF  VEL | | 
• ' ' NOT  PROCESSED.  ' ) ; 

CALL  FU15H_FECHEST  ; 

REQIJEST^NFXT; 

RETURN ; 

END; 

CALL  R F A C_SUBF  1 ELDS  ( 4)  ; 

FK  LC  =DFI  ELD  ( 1)  ; 

F F AC  = C F I ELD  (2); 

^OI.C=CFIELD(  I)  ; 

1V  AC=DFI  ELD  (4  ) ; 

IF  VFRIFY  (SEPARATOR, VALID  SND_SEP)-=r  THEN 
TO; 

CALL  MSG  (4  ,' EXTRANEOUS  INPUT  BEGINNING  " ' | | SEP AR A TOR | | 

• ' ' IGNORED.  ' ) ; 

CALL  FLUSH  REQUEST; 

EN  E; 

RETURN  ; 


END  /*  READ_CH  ANUELCC  */  ; 


/*  SUBROUTINE  READ  SURPIELDS  */ 

/*  ~ */ 
/*  THIS  SUBROUTINE  REAP  TATA  SUPFIFLJS  SEPARATED  EY  COMMAS.  */ 

/*  WHEN  READ  SUEFIELDS  IS  CALLED  Will!  SE PA R ATCR= • , ' , THE  FIRST  DATA  */ 
/*  SUBFIELD  IS  ALREADY  IN  ITEM  . T ii  r PARAMETER  FIELDCOUNT  SPECIFIES*/ 
/*  THE  MAXIMUM  NUMBER  OF  DATA  SUBFIPIDS  TC  DE  READ  HY  THIS  r ROC  l TU  R E.  */ 
/*  F ^ A P_  S UB  FT  E L PS  WILL  REAP  FIELTCOUNT  SUEFIELDS  (UP  TO  6).  */ 

/*  IF  MORE  SUB  FIELDS  REMAIN  IN  THE  INPUT  STREAM  (INDICATFC  BY  */ 

/*  COMMAS)  , THIS  ROUTINE  WILL  SKIP  OVFE  THEM  SO  THAT  SF.FA  FATOR-»=  • , • */ 

/*  WHEN  R E A D_S  ’1 5 F I E IDS  TERMINATES.  */ 

E E A C_Sl!  BF  IEL  DS:  PROC  EDUR  i:  (FIELDCOUNT)  ; 

CECLAKE  FIELDCOUNT  BINARY  FI  XED  ( 1 5 , v- ) ; /*  MAX  # SUBFIELDS  TO  BE  PEAL  «■/ 


fF CL  ARE  I 


BINAR  Y FIXED  (15,0)  ; 


/*  CLEAR  PATA  FIELDS  */ 

DFIELD=  • •; 

/*  AS  WE  DO  EVERYWHERE,  WE  CilECK  UP  CN  OURSELVES  HERE:  */ 

IF  F I EL  PCOUN  T>  t>  THFN 
DO; 

CALL  MSG  (II, 

•SUBROUTINE  R E A T_  SU  E F 1 EL  PS  CALLED.  WITH  FIELDCOUNT  > f>  : • 
I | S’lBSTR  (CHAP  (FI  FLPCCUNT)  , 4)  ) ; 

CALL  FL  US  H_R  EO  UEST ; 

F r'  C Up  ST=  N F XT  ; 

F DT URN  ; 

F ND  ; 

/*  NCW  TSCCSSS  ALL  THF  SUBFIEIPS  CF  THF  PRIMARY  DATA  FIELD.  */ 

/*  T H FF  E CAN  BE  AT  MOST  6 DATA  FIFLDS  FOLLOWING  THE  CCNTFCL  KEY.  */ 

DO  1=1  TC  KIFLJCCMNT  WHI L E (S EP A F ATOR= ’ , • ) ; 
rFIFLC(T)  = I TFM ; 

CALL  I NPUT(SEPARATCR,  ITEM)  ; 

FNP; 

IF  SEPARATORS','  THEN  / + TOO  MANY  D A I A SUEFIELDS  +/ 

DC; 

CALL  M SG ( 4, ' TOO  MANY  DATA  SUBFIELDS.  EXTRANEOUS  ONES  IGNORED.'); 
DO  Wii  I LE  (S  E F A ? AT  0 R=  ' , ' ) ; /*  SKIP  EXTRAS  */ 

CALI.  INPUT  (SEPARATOR,  ITEM)  ; 

END  ; 

END; 


RETURN; 


r N D /*  REAP  SUBFIFLPS  */  ; 
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/*  SUBROUTINE  RFAr_ROUTING  */ 

/*  V 

/*  THIS  SUBROUTINE  READS  TRUNK  OR  LINK  CONTROL  KEYS  FOLLOWING  A */ 

/*  AN  f SEPARATED  BY  "6",  THERE  IS  NC  LOGICAL  UNIT  TC  THE  NUMBER*/ 

/*  OF  KEYS;  TIE  LIMIT  DEFEATS  ON  THF  AMOUNT  OF  CORE  AVAILABLE  FOR  */ 
/*  ALLOCATING  ROUTS_CHAIN  NODES.  */ 

/*  */ 

/*  INTERNAL  SUBROUTINE  NEXTKEY  DOES  THE  ACTUAL  WCRK  CF  LISTING  */ 

/*  THE  RCUTE  KEYS  AND  READING  THF  N EX'1,  INPUT  ITEM.  S FAD_RO  UTING  */ 

/*  S I M n L Y LOOPS  UNITL  THERF  ARP  NO  MORE  ROUTING  KEYS  TO  BE  FROCESSED.  ♦/ 

IT  AP_FOU  TI NG ; PROCEDURE ; 

DECLARE  KSYOK  :3IT{  1)  ; 

DO  UNTIL  ( S*1  P A I AT C R ->=  ' S'  | -KEYOK); 

CALI  N EXTK EY (KEYOK) ; 

SNr  ; 

Tr  VERIFY  (SEPARATOR, VALir_END_SEF) THEN 
DO; 

CALL  MSG  (4  , * SXmP  ANFOHS  DATA  BEGINNING  ' • • | | SEPARATOR  | | 

• ' • IGNORED.  ■ ) ; 

CALL  F LUS H_ F EQU  EST  ; 

EN  C; 

RETU RN  : 


/*  SUB  R0  UTT  NF  NEXTKEY  */ 

/*  */ 

/*  "’HIS  SI)3r)tntNE  IS  CALLFD  BY  RE  AD_ROUTI  NO.  TC  ADD  A ROUT  E_C  H A I N */ 

'*  N ODE  T C.  -"HE  FN"  OF  A LINKED  LTS’’’  ANT  SILL  THE  HKFY  FIELD  WITH  THE  */ 
/*  CURFFNT  ROUTING  CONTROL  KEY.  */ 

'*  */ 

/*  "’"F  P A^  \"1  FT  " i<  OK  TS  A RESULT  FA  PA  NETS  F.  IT  IS  SET  TO  ’0  ' B */ 

* It  THE  C U F E S Nm  C C NT  R 0 1 KEY  IS  FLANK;  OTHERWISE,  IT  IS  SET  TO  • 1 ’ B . */ 
/*  */ 

/*  N°XtKEY  CALLS  INFUT  TO  RFAC  THE  NEXT  DATA  ITEM  BEFORE  */ 

/*  RETURNING  TO  HEAD  ROUTING,  */ 


N EX.  ~K  rY  ; nr?OC  E on  S v (OK)  ; 


I ICT,  AS  F OK  BTT(  1)  ; 

' V LAKE  I AST R PC'.  NTEF  ; 


0 K = 1 1 ’ v ' • ; 

T*  OK  "'liEN  /*  T T T : i NOT  NULL  =>  CCNTROl  KEY  FRESH  NT  »/ 
DC  ; 

TT  FOUTF  ■;?FC-»  = NULI  THEN  I.A  STF  = F PTK  ; 


ALLOCATE  EC U I E_C:i  A IN  ; 
RKEY=ITE 1 • 

ES  IT"  1-'  ' ; 

p ;r  Tp?  - » • . 

FXTP  =N'ULL  ; 


TE  KOtlTFSP  FC-»=N  ULL  THEN 
LAS"  f>  - > N"X  T F= RPT P ; 
ELS  = 

ROUTES  F FC“  F FT  F ; 


E LSF  /*  (NO*  CK)  NO  CONTFOL  KEY  SPlCIEIFC  */ 
CALI  N S(j  ( • « ISSING  CONIROL  KEY  FOLLOWING 


:ai  i ivmris’r  at  a tor,  ieeh)  ; 


" T U P N ; 


FV  /*  V X " K t-  Y */  ; 


tv  /*  ' I AD_" 0)0 -IN 


/*  SUBROUTINE  RF  A C_  SI  I E_  DATA  */ 

/*  */ 
/*  THIS  SUBROUTINE  IS  CALLED  D Y R E A D_  ADDCH  A NGE  OR  R E A D_  D E L ET  E */ 

/*  TC  PROCESS  THE  USSR'S  SHE  S P F Cl E IC AT  Iu MS  FOR  AS,  AL , HR  - S */ 

/*  BEQUESTS.  IT  FILLS  THE  SITE  (1:2)  SUBSTRUCTURE  OF  INDATA.  */ 


REA D_S IT  E_D AT  A : PROCEDUR E ; 

DECLAFE  SITEK  CH A R ACTEF { 1 1 ) , 

I BINARY  FIX  ED  ( IS," ) ; 

I1  R EQU FST_L EV EL= 1 L’  THEN 
DO; 

STTT'K  = ITSM; 

CALL  INPUT (SEPARATOR , ITEM)  ; 

END  ; 

ELSE  IF  REQUESr_LEVEL 5»  THEN 
SI TEK=KE Y ; 

ELSE  /*  THIS  "CANNOT”  HAPPEN  <BUT  HANDLE  IT  ANYWAYS  V 
SITFK= • • ; 

/*  T WC  SITES  PAY  FE  SPECIFIED  */ 
ro  1=1  TO  2 WHILF(  SIT^K-  - 1 • ) ; 

STRING(TNFArA.Rf1SICrPL(I)  ) =5I12K; 

SI TE  K = * * ; 

CALI  READSOBFISLDS(S)  ; 

INDATA. RMSISTCT (T)  =DFIELD(1)  ; 

INDATA.RHSI’LAG  (I)  =SETPLAG  (DFI^LD  (2)  ) ; 

I NPATA.RMSTCCRD(I)  =DF  I ELF  (3)  ; 

IN  DAT  A.  RMS  I NUKE  (I)  = DFT  ELD  (4)  ; 

IN  EAT  A.  RH  S IF  ILL  (I)  =D  FIELD  (S)  ; 

UPD  ATSSITE  (I ) =ST  RING  (CFIEI.D)  -=  * • ; 

IF  1=1  6 S F P A R ATO  F=  ' K • ,T'  H E N /*  ANOTHER  SITE  Pi'ESFNT  */ 

ro; 

SI  TFK=ITFN; 

CALL  INPUT  (SE°At?ATOH,ITFM)  ; 

END  ; 

END; 

IF  VERIFY  (SEPARATOR,  VALID_C'ND__SEP)  -»  = ■'’  THEN 
DC  ; 

CALL  HSG <«,’ EXTRANEOUS  INPUT  BEGINNING  " * | | SEP AR ATCR | | 
• • • IUNCBEE.  ')  ; 

C A I L F L US  H_  REQUEST ; 

ENT; 

RETURN  I 

END  /*  RE  AD  SI  7 F_D  AT  A */  ; 
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/*  FUNCTION  SKIP  LAG 

/* 

/*  THIS  FUNCT IOfl  IS  CALLED  TO  PROCESS  THE  I N PUT  SPECIFICATIONS 

/*  F CP  THE  FLAG  SUBFTELD  OF  CIRCUITS,  TRUNKS,  LINKS,  OR  STTFS. 

/*  THE  USER  CAN  SPECIFY  THE  FIELD  AS  1)  BLANK,  2)  *,  CR  3)  A STRING 
/*  OF  EIGHT  D'S  CR  1 • S.  SETFLAG  PACKS  THE  EIGHT  BITS  INTC  A SINGLE 
/*  ONE-BYTE  FI  EL  C AND  STORES  THE  ELANK  OR  * AS  THE  EBCDIC  REPRE- 
/*  S ENT  AT  ION . THIS  WORKS  BECAUSE  THE  EBCDIC  CCDES  FCR  ASTERISK 
/*  (•*•  = IV11V)")  AND  ELANK  ('  • = ■">  IGDOnoO)  ARE  NOT  VALID 
/*  FLAG  E IEL  T SEITINGS. 

/* 

/*  THE  P AR  AH  FT  ER  FLAGCHARS  IS  rr  HE  EIGHT-BYTE  INFUT  FIELD, 

/*  POSSIBLY  ELANK  OR  CONTAINING  ONLY  A LEADING  *.  THE  ONE-BYTE 
/*  EIGHT-BIT)  RESULT  IS  RETURNED  AS  A FUNCTION  VALUE. 

SETFLAG:  PROCEDURE  (FLAGCHARS)  PETUF  NS  (CH  AR  ACTEP  ( 1)  ) ; 

DECLARE  FLAG  CHARACTER  (1)  , /*  RETURNED  VALUE  */ 

FLAGCHARS  CH  A S ACT  ER  ( 3)  , /*  RECEIVED  VALUE*/ 

FLAGBITS  BIT  (3),  /*  INTERMEDIATE  VALUE  */ 

I BINARY  FIXED  ( 15,')  ; 

IF  FI  AGCH  AR  S = ' • THEN  FLAG='  •;  /*  •MOOnOOO'E  */ 

ELSE  IF  FLAGCH AFS=  • * • THEN  FLAG='*';  /*  •B'nillBD'B  */ 

ELSE  IF  VERIFY  (FLAGCHARS, •v1,)=r  THEN 

DO ; 

DO  1=1  TO  8; 

SUBSTR  (FLAGBITS, 1,1)  = SUE  STR  (F  L AGCH  ARS  ,1 , 1 ) = • 1 • ; 

END  ; 

UNSPEC  (FLAG) =FLAG3ITS; 

END  ; 

ELSE 

DC; 

FL  AG='  ' ; 

CALL  MSG (8 , »INV ALID  FLAG  FIELD  SPECIFICATION  ' •> | | FLAGCH ARS  | | 
•••  IGNORED.  BLANK  FIELD  ASSUMED.'); 

END  ; 


RETURN(FLAG)  ; 

END  /*  SETFLAG  */  ; 


END  /*  RE AD_RE JUEST  */  ; 
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/*  subroutine  flush  */ 

/*  */ 

/*  THIS  PROCEDURE  WILL  R FA  P AND  LIST  THE  USER'S  INPUT  WITHOUT  ♦/ 

/*  PPOCESSING  IT.  TWO  SECONDARY  FNTFY  PCI  NTS  ARE  PPCVICFT:  */ 

/*  */ 

/•  E'LUS  H_  ALL  --  FLUSHES  AND  FRISTS  THE  REGAINING  INPUT  UP  TO  THE  */ 

/*  END  CF  FILE  */ 

/*  FLUSH  REQUEST  --  FLUSHES  AND  FBI  NTS  THE  INFUT  UP  TC  THE  BEGINNING  */ 
/♦  * CF  ’’HE  NEXT  HFQU  FFT  */ 

FLUSH:  PROCEDURE; 

FLUSH  ALL:  "NT?Y; 


co  w HILF(-  ::OF)  ; 

CALL  I NPUT  <•  ' .ITEM)  ; 

END; 

T'TUFN; 

F L US H_ REQUEST:  ENTRY; 

DO  U NT  IL  (VER  IFY  (SEPARATOR # VA  LIP_FND_SEP)  = ")  ; 

CALL  INPUT (SEPARATOR , ITSH)  ; 

FNP; 

LETU  PN  ; 

” N P /*  FLUSH  ♦/  ; 
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/•  SUPRCUT  INF  INPUT  */ 

/•  */ 

/*  Tin.;  •up’' RKTrnvrs  the  user's  input  cne  character  at  a */ 
/*  TIBS  DT  INVOKING  FUNCTION  NEXT  CHAR.  (NFXTCHAR,  WHICH  CALLS  */ 

/♦  GfTCHAF,  'Tw  IPS  OUT  Till  PARENTHETICAL  CC.1NENTG,  SC  INPUT  NEVER  */ 

/•  EE  F S THEN.)  */ 

/*  V 

/*  I N P 'i  ? 'I  AS  rwc  PAR  ATFTEPS.  r_?rP  WILL  Pi  SET  TO  THE  SEPARATOR  */ 

/*  ('j',  •*•,  'I1,  "•  r,  • ) preceding  the  pata  item  to  be  */ 

/*  E-’Ar  ; CS  PS"M,  IT  'I  A Y BF  */ 

/«  ’I'  t F "HTS  IS  TIE  p I ’ S 1 CALL  TO  TNPIJ-,  */ 

/•  • • IE  E»jr-OE-EILE  WAS  rMVIOUSIY  REACHED,  OH  INFUT  IS  BFING  ♦/ 

/♦  EUISHED,  CR  */ 

/*  I c END-DP-  TOH'CI  WAS  MACIUP  AND  EC  HE  DATA  NCT  Y FT  NEEDED.  */ 

/*  */ 

/♦  'He  i'C  >N  D AT'  A " I TR  WILL  T.  THE  DATA  ITEM  KLAT.  */ 

/*  */ 

/•  LEA:  ISO  CLANKS  WILL  Bi  ST  PIPPED  F RCfl  THE  INFUT  PATA  IMA.  */ 

/*  TIMLIN;  "IAN  KS  AH*  NCI  STPIPPFr.  */ 

/♦  */ 

/*  ?IN<  • T f£  SRPANATCK  F RAT  FOLLOWS  THI  ''AT A ITE.N  IS  NOT  */ 

/,  ; rrtl,  N ro  TH"  CALLING  I'l  OCFDUPE  UNTIL  T!iE  NEXT  TINE  THAT  INPUT  */ 

/•  l:  INVOKED*  THAT  CHAR ACT  EE  TS  SAVED  IN  THE  GLoJAL  LOCATION  */ 

/*  nfv:_-.v’a:,a"  >■  so  it  will  *»r  avaiiaple  to  the  next  invccaticn.  */ 

/*  ” */ 

/*  Wh1--’  INPUT  DETECTS  THE  END  OF  THE  CURRENT  RECHEST,  IT  CALLS  */ 

/♦  ! <r*-_R~v  TO  urn  AT  F "HE  listing.  */ 

! N PUT  : PKOCRPtm  (D_S  EP  , D A"  A ) ; 

r FCI  AR  B /*  E AP  AN  FT7;-’  s */ 

r_:’EP  CH  AT  ACT  El  ( 1 ) , /*  PRFSFNT  SEPARATOR  */ 

e’atA  CHAP.  ACTE.  (1  ) VARYING;  /*  PRESENT  DATA  I TEN  */ 

r FCI.  AFT  U-  CIIA  - ACTE;,  (1)  ; /♦  SINGLE  CH  A R ACT  FF  BEING  */ 

/*  "READ"  BY  NEXTCHAR  */ 


CN  I'HiF’  ln  ( S YSI  N)  GO  TO  M'HORF; 

/*  DATA  IT  E N "USr  n E INITIALIZED  TO  A NULL  STRING  */ 
r A~  A = " ; 
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/♦  IF  THIS  IS  THF  FI RST  CALL  TO  INPUT,  N EXT_S  EPAR ATOR  CONTAINS  A • 1'  */ 
/*  FATHER  than  a T3  U 3 SEPARATOR.  FIND  T UK  FIRST  NON-BLANK  CHARACTER  */ 


/*  AND  LET  THAT  BE  THE  SFPAPATOP.  IGNORING  COMMENTS  (WHICH  ARE  */ 

/*  STRIPPED  CUT  LY  NEXT  CHAP),  IE  THE  FIRST  CHAFACTET  ISN'T  A VALID  */ 

/*  FEQUEST  CHARACTER,  TH  ER  E IS  AN  ERROR.  FLAG  IT  AND  TRY  TC  V 

/*  CONTINUE.  */ 

IF  NEXT  SEP AR ATOR =’ 1 ’ THEN 
DO; 


/*  INITI ALIZF  I_S  E F ♦/ 

P_S  FD  = ' •; 

DO  WHILP(N  tXTCHAR  (C!i)  =•  ' ) ; /*  SKIP  LEADING  PLANKS  */ 

END; 

IF  VERIFY  (CH,  VALIO_RF.Q_SEP) -*=  R "HIFN 
DO  ; 

CALI  MSG  (8,  • INPUT  MUST  STAR'7'  W iT  H VALID  REQUEST.  '|| 
'INPUT  BEGINNING  ' " | ( CH  | | • • • TGNCFFD.  '); 
DO  WFil  LF  (V  ERI  FY  (N  EXT  CHAR  (CH)  , V AL  I D_R  EQ_SFP  ) - = r)  ; 

END; 

END  ; 

/*  CURRENT  CHARACTER  IS  VALID  */ 

N FXT_SEP  ARATOR  =CI1; 


ENn  ; 


/*  END  OF  SPECIAL  F ROC  ESS  I NO.  FOF  FI^ST  CALL  TO  INPUT  */ 
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/*  IF  THF  PRFSSNT  SEPARATOR  IS  NOT  A BLANK  (SET  DY  THE 
/*  PROCESSING  LOOP  AS  A GO-AHEAD  SIGNAI)  AND  THE  NEXT 
/*  SEPARATOR  IS  A VALID  E ND-UF- b FQU  EST  CHAR-ACTER,  THEN 
/*  HAVE  JUST  REACHED  THE  END  OF  A REQUEST. 

/*  DON'T  REAR  ANYMORE  INPUT  Y ET , EECAUSE  IF  WE 

/*  DO,  WE'LL  FOUL  UP  THE  LISTING.  SEI  THE  FHESENT  SEPARATOR*/ 
/*  TO  (WHICH  IS  NOT  A VALID  DELIMITER  AS  FAR  AS  THE  USER*/ 


/*  IS  CONCERNED)  TC  SIGNAL  THE  MAIN  PROCESSING  LOOP  THAT  */ 
/*  SUBROUTINE  INPUT  MUST  BE  CALLED  AN  EXTRA  TIME  BEFCRE  */ 
/*  REAPING  THE  NEXT  REQUEST.  KEEP  ON  DOING  THIS  UNTIL  THE  */ 
/*  STOP  SIGNAL  ( P_3EP  = ' ; ' ) IS  TURNED  OFF  IN  THF  MAIN  IOCF  */ 
/*  AND  THE  GO-AHEAD  SIGNAL  (r_£EF=*  ')  IS  TURNED  ON.  */ 


IF  P_SE  P= ' ; ' | (r_SEP-='  ' SVERIFY  (NEXT  S EP  A S ATOR  , V AL  I D_EN  D SEP)  =0)  THEN 

CO; 

F SE?=  • ; ' ; 

RETURN; 

END  ; 

/*  IF  PRECEDING  CALL  TC  INPUT  RAISFC  THE  ENDFILE  CONDITION,  THERE  */ 

/*  IS  NOTHING  MORE  TO  3E  READ.  THIS  SITUATION  IS  INDICATED  EY  A */ 

/*  BLANK  NS  XT_S  E P A R AT  C R.  INDICATE  THIS  TO  THE  CALLING  PROGRAM  DY  */ 

/*  SETTING  THF  FOF  FLAG  AND  RETURNING  A BLANK  SSFAPATCR.  */ 

P_SE  P=  NE  XT  SEEAFATOR; 

IF  P_SEP='~*  THEN' 

DO  ; 

EOF*  * 1 • E; 

RETURN; 

END; 

DC  WHILE  (NEXTCHAR  (CH)  = ‘ •);  /*  SKIP  LEADING  PLANKS  */ 

END; 

/*  ACCUMULATE  DATA  UNTIL  END-OF-FIELE  SEPARATOR  CR  END-OF-FILE  */ 

/*  DATA  IS  ALREADY  SET  C A NULL  STRING  */ 

DO  WH  ILE(VERIFY(CH, •<$-#%,:  F.  •)  -»=P)  ; 

D AT A = DATA | | CH  ; 

CH=N  FXTCHAR  (CH)  ; 

END  ; 

/*  WF  HAVE  A VALID  SEPARATOR.  SAVE  I'1'  FOR  NEXT  TIME.  */ 
NEXT_SE?ARATOR=CH; 

/*IF  -*ASI  S THEN  DATA  =UP  (DA  TA)  ;*/ 

/*  PRINT  THE  CURRFNT  REQUEST  IF  WF  AP<  AT  THE  END.  */ 

IF  VERIFY  (NEXT_SFPAFATOR,V ALID_ENC_S EP) =0  THEN  CALL  PR  IN  T_REQ ; 

RFTURN; 


MAIN 

V 

*/ 

WE 

*/ 

V 

*/ 
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NCfOr.E:  /*  ENDFI Lr (SYSIN)  */ 

/♦  CONTROL  CAN  REACH  THIS  PCI  NT  IN  TWO  WAYS:  V 


/*  (1)  THERE  WEPE  N<)  VALID  REVESTS  IN  THE  INPUT  STREAM,  IN  ♦/ 

/♦  WHICH  CASE  Tills  IS  THE  FIRST  CALL  TC  I NF'IT  ANT  V 

/*  N*-  X”  S E P A E A"  0 R IS  STILL  Ew'UAL  TO  '1*.  SET  EOF  AND  ♦/ 

/♦  P_SFP  AND  THLN  RETURN.  */ 


IF  hFYT_SEPAT-AT,Ct>='  1 • THEN 
VC; 

To  F - ' 1 ' P ; 

F SFP=  ' • ; 

CALL  pri:jt_peq; 
RETURN  ; 

FNE; 


/«  (2)  A"  LEAST  ONE  VALIE  FFgUEST  CHARACTER  HAS  SEEN  READ  */ 
/*  (PF03APLY  MORE)  AND  END-OF-FILE  WAS  FEACHEt  WHILE  */ 
/*  READING  A DATA  ITEM,  WHICH  MAY  OR  MAY  NOT  BE  BLANK.  */ 
/*  SFT  NEXT  S-PARATOI  TO  BLANK  SC  END-CI'-FILF  WILL  EE  */ 
/*  RECOGNIZEE  AND  SFT  IM  M E El  AT  EL Y NEXT  TIME  INPUT  IS  */ 
/*  CALLED,  AND  THEN  PFTUFN  E CR  FPCCESSING.  */ 


NE XT_Sr P A FATCP= ’ 

/♦IF  -»A  SI  S THEN  D AT  A=U  P ( C AT  A)  ; V 

CALL  rRINT_PEC; 
rETURN  ; 


r 


i 


/•  'UNCTION  NHXTCH.AP 

/• 

/*  N'XTCIIA'  IS  "HT  INTERFACE  EETWEIN  SUBROUTINE  INPUT  AND 

/•  nn.c“i)N  gftcha::.  the  only  purpgsf  of  nf.xtchar  is  tc  "eat"  cofi- 

/•  (IE  NT  S . T COFfl 'NTS  WFKK  No"  FERN  ITT  EC,  THIS  INTERFACE  COULD  BE 
/•  FLIFIINA""  AND  GFTC.IAR  COHI.D  PF  RENAFIKP  "NEXTCHAH.  " (IN  FACT, 

/•  P3EPH"  CON.1  'NTS  WERE  FERN  ITT  ET,  IT  HAS.) 

/ * 

/•  AT  PH  E‘J  E V , NO  H ARSONS  IS  GIVEN  IF  THE  ENDFILF  CONDITION  IS 

/*  p A I S F T HI!  TIE  HATING  A COMF1  ENT. 

NFXTCIIA:.  : PR  '■‘CFDtlj-  (THISCHAF)  RETURNS  (CH  A E ACTER  ( 1)  ) ; 

FECI.  A”!  THISCIIAR  CHAR  ACTER  ( 1)  ; 

Till  *C!I  AR  = GrTC"  \R  (THI  SCIIA  R)  ; 

PC  UH  I I ("III  SCI  A .1-  • (•  ); 

Ii  VI!  II,  (OF  TC1IAR  (Till  SC  HA  K )"•=•)  * ) ; 

END; 

ri'ISCHA?  =CF  TCHAR  (THTSCHAR)  ; 

- NP  ; 


F H I HI  V ("  IISCH  A<)  ; 


Ktl  No  1 ON  OF'  C H AR 


THIS  FUNCTION  PDFS  r M F ACTUAL  HORK  O F PUFFERI 

extracting  one  character  at  a ti«f.  getciiar  gets 

CH  A R ACTE  P FRCS  FT  I.r  SYGIN  AN  l PFTURNS  I”'  PLINDLY 
EX  AH  IN  AT  ION)  TO  Til1-  POINT  OF  INVOCATION  AS  DOT:i  A 
FUNCTION  VALUE. 


NO  THF  INPUT  ANP 
THE  NFXT 
(WITHOUT 
1 ARAN  FT  F R ANT 


KUTIILE  BUFFERING  TP  USFP  SO  THAT  A CPI P L ET  T 
SPANN  INC  NULTIFLE  RECORDS,  CAN  PL  PRINTED  'N  -HF 
ONF  TINE  PY  POINT  REQ. 


SI  NO  IF  REQUEST, 
LISTING  AT 


THE  GLO  HAL  VARIABLES  I NR  EC,  I NREC_1  FVFl,  TNSK 
BUFPFGIN,  ANP  PUFFND  ART  ALL  FST  AFL  ISHRP  IN  THE  - 


CIEN,  PtIFPCS, 
AIN  PROCEDURE. 


IF  (I  ETCH  A R FILLS  UP  THE  INrU,r  ARRAY  1NR1C  (A 
REQUEST  IS  TO R ^ THAN  PIN (INREC,1)  RFCCRPS  LONG), 

T R I NT  T ,N  F n C TC  M T C A T F T Hr  LISTING  ANP  PROVIDE  NOR 


S INGI.F 
IT  CALLS 
F IN  T HT  SPACF. 


GETIUR:  FK  OC  r OU  R F ( T II I SC  M A R')  RETURNS  (CHAKACTFP  (1  ) ) ; 
PFCLAKF  THISCHAF  CH A R ACT F R ( 1 ) ; 


/•  F NDFI  LE  (S  YSi  N)  IS  H AN  T LE  P IN  SUPFOIITINF  INPU'r  ♦/ 

IF  T U Fpo  S >=  Dll  FEN  D THEN 
DO; 

IF  I N REC_  I EV  EL>=  DI  N ( I N RFC,  1)  THFN  CALL  PR  IN  T_I  NR  EC  ; 
IN  P FC_l.  E V p L = INS  EC_  LEVS  l*  1 ; 

GET  FTLF  (SYS  IN)  F.P  IT  ( I N R FC  ( I N R FC_L  FV  "L  ) ) 

(A  (INKECIEN)  ) ; 

Dll F PCS  = PUF  PEG  T N-  1 ; 

FN  T; 


PIIF  •'OS  nu  FPO  S ♦ 1 ; 

Til  T SCI1  A F r SU  PST  P | ! N RFC  ( ' N K FC_  I FV  EL ) , Dll  FPOS,  1)  ; 
FFTUPN  (T  RtSCHAR)  ; 


END  /*  G v’f  CH  AR  */  ; 


F NP  /*  NFXTCPAI  */  ; 


( 

M 

| 

I 


/•  subroutine  riuM.nniT 

/• 

/*  THIS  SUBROUTINE  :iA  > TNO  ENTRY  rci  NTS  AKP  IS  USFD  TP  F HI  NT 

/*  T:r  USEP’S  INPUT  CN  THE  O0T1IT  LISTING.  IT  IS  CALLED  PY  INPUT 
/•  OR  GFTCHJkR. 

/♦ 

/♦  PRINT  INRFC  --  FNPTIKF  THE  ENTIRE  I NR  SC  AFFAY. 

/♦  FPIN"~PE0  -*  PRINTS  ONLY  THE  CURRENT  REQUEST. 

PPT  NT_I  N F:'m  : IRCCFDMRF; 

fSCLARF  I PINARY  FIX  FT  (!*’»''  ) ; 

PP INT_ IN  R FC:  FNTRY; 

TO  1=1  TO  IN  0 FC_L  E V EL ; 

rm  FI  LF  (SYSFSI  NT)  EniT  ( IN  RECt  , IN  F FC  (I)  ) 

(SKI  P,CCL(CCI»)  , F(«)  .COL(COLREC)  , A ( INRECLEN)  ) 

INRFC»=INRFC«*  1 ; 

F N^ ; 

INFFCJ.  FVFl.  = "; 

RF  TURN ; 


PRI  N T_  RE  v t r«iTRY; 

PUT  F II  F (SYSTPINT)  SKIP(1); 

TO  1=1  TO  IN  RFC  tFVFL-1; 

PUT  r I IF (SYSFRT  NT)  EPIT ( IN  RFC* , I N F FC  ( I ) ) 

(SKI  P ,CC1  (CO  I •)  ,F  ( U)  , CCL  (COL  FFC)  , A(INrt  FCLFN)  ) ; 

I NFFC* -I N FEC* ♦ 1 ; 

FNO; 

INREC (1 ) = IN F FC ( INK *C_LKV FL) ; 

I N RFC_LF  V rL  = 1; 

RFTtlFN; 


FNP  /•  PKI NT_I NFU?  ♦/  ; 


FNP  /•  I NFtlT  */  ; 


/*  snnpoun N":  msg  */ 

/*  */ 

/*  THIS  SUBROUTINE  POINTS  ALL  MESSAGES  AND  KEEPS  TRACK  OF  THE  */ 

/*  HIGHEST  SEVERITY  CODE.  THIS  CODE  (SEE  TABLE  UNDER  THE  DECLARATION*/ 

/*  CF  KSGCLASS)  WILL  '' LT II  AT  CLY  EE  ISSUED  AS  TilE  JuB  STEP  RETURN  CODE*/ 

/•  AM  CAN  Hr  TFS"  ED  BY  LATER  STrPS.  */ 

/*  T:i’?  FIRST  PAFAMFTEF  IS  THE  SEVESITY  CODE  TO  BE  ASSOCIATED  */ 

/•  WITH  I H r CURRENT  MESSAGE ; IT  SHOULD  BE  0,  U,  8,  12,  CR  16.  THE  */ 

/•  SECCND  PAKAMFTrR  IS  THE  TEXT  CE  THE  (1  ESS  AGE.  AN'  ELEMENT  OF  */ 

/*  MSGCLASS  WILL  B " CONCATENATED  TO  THE  FRCNT  OF  THE  TEXT  ACCORDING  */ 
/*  TP  TJ,  - VALMT  or  RET_CODF.  */ 

/*  THE  STARTING  COLUMN  OF  THE  MESSAGE  IS  DETERMINED  BY  THE  VALUE*/ 

/*  OF  "HE  ILOBAL  V \ R I A B I E MSGC.  Ir  THE  RET_CCDE  IS  16  ('’’ERMINAL  */ 

/*  LRF.CF),  "r"  F N -HE  SMBRC’ITINE  INITIATES  IMMEDIATE  TERMINATION  BY  */ 
/•  ESCAPING  TO  THE  ’.LOBAL  LABEL  CLRANIir  INSTEAD  OF  SIMPLY  RETURNING  */ 
/*  TC  THE  CALLING  POINT.  */ 


ms;:  ! f^ce^iise ( rft_ccde,tfx?)  ; 

DFCIAFE  RTT_CCBF  PIN  ARY  E IX  ED ( 3 1, r ) , 

TEXT  CHARACTER  (111)  VAPYI  NG  ; 

DECLARE  MSG  CL  AGS  ( ' : 4)  CH.AR  AC  TER  ( 2 1 ) VARYING 

I N IT  T A L ( 


/*  CLASS 

CODE 

*/ 

• • 

9 

/* 

00 

*/ 

• * * * * 

WARNING:  ' , 

/* 

04 

V 

• * * ♦ ♦ 

STROP:  ', 

/• 

0 8 

V 

• * * * * 

TEUTIL  ERROR:  ', 

/* 

12 

*/ 

• * * * * 

Tr'RMI  NAL  EFRUR:  ')  ; 

/• 

16 

V 

/*  MAKE  SURE  RET_C)DK  IS  j,  4,  8,  12,  CF  16.  */ 

R " T_CCDP  = 4 * DIVIDE  (RET_CCDI>  3,4 , B , ) ) ; 

IE  F ET_CO  C E > 1 1>  T H VN  R ET_COD  L’ = 16  ; 

PUT  T I L E ( S Y SP  R IN  T)  -nr  : ( MSGCLASS  (in  VIDE  (RET_CCDE  ,4  ,5  ,D)  ) I JTEXT) 

(SKI  F,  COL  (MSGC)  , A)  ; 

IE  TE"_COrL>-  THEN  M SG_C  OUN  T=  MSG  _OOU  N"*+  1 ; 

I F SC>1 2 THEN  RETURN  ; /*  Ir  ALFFADY  BONE,  DON'T  FLUSH  AGAIN.  */ 
RC=.MAX  (RET  CCD3,FC)  ; 

IF  3Er_C()CE>12  T II PN 
DC  ;~ 

TUT  FILE  (S YS°R IN  7)  EDIT('INPUT  STREAK  FI  U SHED:  ') 

(SKir,COL  (MSGC)  , A (21)); 

CALL  FIUSH_ALL; 

GO  TO  Tr3ME!?R; 

END; 


RF^UrN; 

r N P /*  MSG  ♦/  ; 
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/•  smuoutiNr  cartage  ccilkct 

/• 

/*  "MI.?  Sin?  I"  I INF  JASPAGF  CC l LECTIO  3 ON  THE  LINK  ANT 

/*  S*  IF  "ASTER  F I I rS  ; T li  A"  IS,  LINKS  ANT  SITS  THAT  IFF  US"P  BY  NO 

/•  tf'inks  an tv  ir  circuits  ash  psiftep  f«c ?•  "he  data  fast. 

/* 

/•  O.  A F n A F_  C C L l ECT  SEATS  EACH  FILE  IN  TORN  SERIALLY  A N P •*  A N E S A 

/*  IIS"  1*  ALL~CONT-.OL  NTS  IN  T‘<::  GARBAGE  CCLLFCTICN  WORK  FILE 
/«  GCUORK.  IT  "HEN  FF-TEAPS  THE  LIST  OF  KFYS  AN  P TFIFS  TO  DELETE 
/•  Ml'!  F ECO  HP.  NLY  THOSE  TO  WHICH  NO  VARIABLE  RFCCFPS  AM  LINNFP 
/•  WILL  ACTUALLY  Lt  EEL  "7 c V. 


• / 
• / 
* / 
• / 

• / 

*/ 
* / 

• / 
* / 

V 

*/ 


■•Ai  I AS 


C M L ‘O': 


■ > • i . ■ i f • . 


> ;C'.  r ; 

CIA  • A ' I 

/• 

• II  NKS  • Cl-  ’SITES  • */ 

k'~  Y 

r HA.  ACT 

F ” ( 11 ) V A F Y I N G , / • 

Cl  NTS  01  KEY  */ 

K r Y L r N 

FI NAFY 

Kerns'),  /* 

*>  FOF  LINKS,  11  EOS’  SITES  */ 

» in.  s 

UNARY 

E ! X F P ( 1 S , ' ) , 

'"'NEL'TT 

nr  (i) , 

- * 

1 =>  TORE  KEYS  TO  PROCESS  */ 

t » V.  «»  V>  K 

” ILF  ST 

• NVI  .v'Nr  * NT 

(V  r,  F ECS  IT  F ( 1 ' 4)  , HLKSIET  ( 1 30C  0)  ) ; 


./*  NOS*  '•'I  L E '•AY  PF  *1SS  INS  */ 

ON  ’IN  Vt  UN  *T  E ILF  (SO  WOK  \ ) 

S ”G  I N ; 

CALI  SSG  (.»,  • I..CO,v.rLET-  OF  NO  !' p STATE  KENT  PCS  FILE  GCVCRK.*)  ; 
CAII  HSGp,  ‘SPECIFY:  /GC10RK  EE  ONIT  SYSD  A,SPACE*  (TRK,  (1,  1)  > •)  * 
CALL  *'•:(«  ,•  JAFFA  5r  COLLECTION  NOT  PERFORM  FD.  •)  ; 

GO  TO  - r r ; 


N V vnFT IS (GO  WORK)  S C P " L 5 F T - * ' • L ; 

LO  RECOFTS^*  LINKS’  .’SITS’; 

IE  ' ECOF PS=  ’I  INKS’  THEN 
TO; 

F IL  F IP  - ’ c P.  LK  ’ ; 

FLMlIsr«'?MLKCTFLENr.  • ; 

N -yi  cnj  = 

?NP; 

ELS”  Ir  RECORDS*' SITES’  THEN 
TO; 

FILE  ns'ilST'  ; 

2LNLIS"*  • FNSIcr  FLINT.  ’ ; 

K*'YLFN  = 11; 

F Np  ; 

ELSE  LEAVE;  /*  IMPOSSIBLE  CAS”  SFCA’ISF  OF  LTEFATTVF  l'C  */ 
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CALL  '•SG  ( • c;  afpage  COLLECTION  ON  UNUSED  • I I RECORDS  | I • : • ) ; 


/*  I E AD  THF  LINK  CR  S T,r E MASTER  FILE  SERIALLY  AND  MAKE  A LIST  */ 

/*  OF  ALL  PTCOPns  IN  THE  FILE.  */ 

OPEN  E IT,  £ ( GCWOT  K ) OUTPUT; 

F IJ  NCT  = BESTM  ; 

CALL  CD  10  ( j,  2)  ; 

IF  STA  T ')S-»=  OK  THEN  SIGNAL  C 0 N T IT  ION  (TO  T ERR  ) ; 

F'1N0T  = SEQFM; 

CAT  I T 3 TO  (t,  ~>)  ; 

0 C N ; T LE  (ST  \TtJS-=  ENDF)  ; 

IT  STAT03-=OK  THEN  SIGNAL  C 0 Nf>  I 1 I C N ( TOT  F P ?)  ; 
i tIT  "I  IF  (GCWOHK)  E C IT  ( ? UB ST  R (10  A R E A , 1 , K E Y LE  N)  ) 

(A (KTYLEN) ) ; 

C ALL  HP  IT  (6 ,2)  ; 

F ND  ; 

S~ATUS=OK  ; 

CEOS"  FI  LF  ( ’.CWORK)  ; 

/*  NOW  RE  A F Til-  WORK  FILE:  AND  TRY  TO  DFLETE  EACH  ?.  “CORD  IN  TURN.  */ 
/*  ONLY  THOSE  WITH  NO  LINK.AGr  TO  VAFIABIS  RECORDS  WILL  PE  */ 

/*  r-LDTEr  3 Y TCT  AL.  */ 

)?:n  F IL E (GCWCr K ) TNPtT'; 

funct=dll_.m ; 

*_Dr LS="  ;~ 

SO M TL  E F""  = ’ V P; 

GOT  '■I  LT  (OCWCFK)  TPIT(KFY)  (A(KFYLEN));  /*  FIRST  CONTROL  KFY  */ 

TO  WHILE  (SONrLEFT)  ; 

CONTROL- KFY ; 

CALL  DF I ) (7, 2) ; 

I r ST  AT  MS-»  = • I BEL  • THPN 
TO; 

Ir  S "" ATUS -»=  OK  THEN  SIGNAL  CONrITICN  (TOTFRR)  ; 

CALL  MSG  ( C , 1 ’ I | KE  Y | | ’ DiEIETFD')  ; 

a_DELS  = *_BELSO ; 

END; 

ELSE  S T A T U 5 =0 K ; 

GET  FT  IE  (GCWORK)  EDIT  ( KEY  ) ( A (K  EY  LEN  ) ) ; 

END; 

CALL  MS  I(",Ct'At'  («_DELS)  | | ' UNUSFD  ' | | RSCORDS|  | ' DELETED.'); 

CLCSF  FT  L-  (3CW0FK)  ; 

END; 

RET:  RETURN; 

END  /*  G ARHAGE_COLLECT  */  ; 


EN r /*  rPHTIL  v ; 
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Commander  in  Chief 
U.S.  European  Command 
ATTN:  J-6 


Interservice  Nuclear  Weapons  School 
ATTN:  TTV 


ATTN: 

ATTN 

ATTN 

ATTN 

ATTN 

ATTN 


J-5NPG 

J-417-LW 

J-2 

0-3 

ECJ6-PF 

J-2-FTD 


Commander  In  Chief,  Pacific 


Joint  Chiefs  of  Staff 


ATTN 
ATTN 
ATTN 
ATTN 
AT  I N 
ATTN 


J-3 

J-3,  NMCC 

J-5,  Nuclear  Division 

J-3,  WWMCCS  Council  Support  Office 

SAGA 

J-3,  WWMCCS  Evaluation  Office 


ATTN: 

J-6 

ATTN:  J-3,  Nuclear  Weapons  Branch 

ATTN: 

J-3 

ATTN:  J-3,  Nuclear  Contingency  Branch 

ATTN: 

ATTN: 

J-2 

J-54 

Joint  Strat.  Tgt.  Planning  Staff 

Defense  Advanced  Rsch. 

Proj.  Agency 

ATTN:  JPST 

ATTN:  JLTW-2 

ATTN: 

TIO 

ATTN:  NR I -ST I NF 0 Library 

Defense  Communications 

Enqineer  Center 

ATTN:  JSAS 

2 cy  ATTN:  JL 

ATTN: 

ATTN: 

Code  R720 
Code  R400 

Joint  Tactical  Communications  Office 

ATTN: 

Code  123 

ATTN:  TT-E-SS 

Defense  Communications 

Agency 

National  Communications  System 

ATTN: 

Code  205 

Office  of  the  Manaqer 

ATTN: 

Code  410 

ATTN:  NCS-TS 

ATTN: 

ATTN: 

Code  510 
Code  520 

National  Security  Agency 

ATTN: 

Code  530 

ATTN:  R-52 , 0.  Van  Gunten 

ATTN: 

Code  101B 

ATTN:  TOE 

Defense  Documentation 

Center 

U.S.  Forces  Korea 

12  cy  ATTN: 

DO 

ATTN:  DJ-AM-SM 

ATTN:  CJ-P-G 


PEPARTMI  N1 

Of  PE  K NS  E (Continued) 

(OS.  National  Military  Representative 

SHAPE 

ATTN 

U.S.  Documents  Officer 

Under  Secretary  of  Def.  for  Rsch.  S fnqrq. 

ATTN 

Tactical  Warfare  Programs 

aetn 

Strategic  X Space  Systems  (OS) 

ATEN 

Research  * Adv.  Technology 

WWMcTS  System  fnqineerinq  Orq. 

ATTN 

WWMCPS/SEE 

Dl PAR1M1N1 

01  III!  ARMY 

Asst.  Chie 

of  Staff  tor  Intelligence 

Department 

of  the  Anny 

ATTN 

DAMI-E [ 

Atmospheric  Sciences  Laboratory 

U.S.  Armv  Research  A Development  Conroand 

ATTN 

OEEAS-AS 

Deputy  Chief  of  Staff  for  Ops.  Plans 

Department 

of  the  Army 

ATTN 

OAMP-SSP 

ATTN 

PAMO-RQS 

ATTN 

Technical  Advisor 

AT  IN 

OAMO-TCW 

Deputy  .me 

’f  of  Staff  for  Rsch.  Pev . X Aco. 

Department 

of  the  Army 

ATTN 

PAMA-CSS-N 

ATTN 

Advisor  for  RPA  Analysis 

Harry  Diamond  laboratories 

Department 

of  the  Armv 

ATTN 

OELHP-N-NF 

ATTN 

OEIHD-N-RBH 

ATTN 

PflllP-N-RRA 

ATTN 

PCltid-N-rO 

ATTN 

DELHD-N-TI 

P cy  ATTN 

PEL  HO- N- EM 

Mul ti -Service  Communicat ions  Systems 

department 

of  the  Armv 

ATTN 

ORC PM-MSCS- APR , M.  francis 

U.S.  Army  Ballistic  Research  Labs. 

ATTN 

VL 

AITN 

IRE 

ATTN 

CA1 

U.S.  Army 

-E  Engrg.  Installation  Agency 

ATTN 

CC-EMfd-rEd 

ATTN 

CCC-SfO 

ATTN 

CCC-PRSO 

U.S.  Army  i 

'mb.  Anns  Combat  Dev.  Ac  tv. 

AITN 

ATC A-PET 

ATTN 

ATCA-fA 

ATTN 

ATPA-CO 

U.S.  Army  Comd.  S General  Staff  Co 11 one 

ATTN- 

ATSW-TA-P 

U.S.  Army  ComPHinications  Command 

ATTN 

ACC-OPS-WR 

ATTN: 

ACC-OPS-SM 

nfl'ARJMfNT  PI  THi  AMMY  (_tontinuedJ 

U.S.  Army  Comuuni cations  System  Agency 
ATTN:  CCM-AO-LB  (Library) 

U.S.  Army  Concepts  Analysis  Agency 
ATTN:  code  005/606 

U.S.  Army  llectronics  Rsch.  X Uev.  Command 
ATTN:  DRCPM-TDS-SD 
ATTN:  dRCPM-ATC 

Commander-  In-Chief 

U.S.  Anny  turope  and  Seventh  Army 


AITN: 

AEAP.R 

ATTN: 

A!  AGO-MM 

ATTN: 

ODCSE-E  AEAG1 

ATIN: 

AEAGC-0 

AITN: 

AEAGC-OSW 

U.S.  Army  Materiel  Sys.  Analysis  Activity 
ATTN:  dRXSY-DS 
ATTN:  ORXSY-S 

U.S.  Anny  Missile  R&D  Command 
ATTN:  DRSMI-YDR 

U.S.  Anny  Nuclear  X Chemical  Agency 
ATTN:  ATCN-W 
ATTN:  library 

U.S.  Anny  Satellite  Comm.  Agency 
ATTN:  TACSAT  Office 
ATTN:  ORCPM-SC-11 

U.S.  Anny  TRADOC  Systems  Analysis  Activity 
ATTN:  ATAA-TAC 

U.S.  Army  Training  and  Doctrine  Comd. 

ATTN:  ATOR] -OP-SD 
ATTN:  Technical  Library 

U.S.  Anny  War  College 
ATTN:  Library 

Conmander 

V Corps 

Department  of  the  Anny 
ATTN:  ACTVCf 
ATTN:  AETVGC 
ATTN:  AETVGR 

Commander 

VI I Corps 

Department  of  the  Anny 
ATTN:  AETSCL 
ATTN:  AETSGB-0 
ATTN:  AETSfiC 

DEPARTMENT  JPE_  THE_  NAVY 

Naval  Ocean  Systems  Center 

ATTN:  Research  library 

Naval  Surface  Weapons  Center 

White  Oak  Laboratory 
ATTN:  Code  T3I 

U.S.  Naval  Forces,  Europe 

ATTN:  N.T?6?  Nuclear  Surety  Officer 


DEPART Mf N T Of_  THE  NAVY  (Continued) 

OTHER  CiOVI  RNMENT  AGENCY 

Office  of  the  Chief  of  Naval  Operations 

Central  Intelligence  Agency 

ATTN:  OP  96 

ATTN 

OSR/SI 

ATTN:  OP  94 

ATTN 

OSR/SEC 

ATTN:  OP  604  E/F 

ATTN 

OSI/LSD 

ATTN:  OP  941 

ATTN 

RII/SI 

U.S.  Atlantic  Fleet 

DEPARTMENT 

0f  OEFENSE  CONTRACTORS 

Department  of  the  Navy 

ATTN:  J611A 

BDM  Corp. 

ATTN:  054 

ATTN 

L.  Jacobs 

ATTN 

W.  Sweeney 

DEPARTMENT  Of  THE  AIR  FORCE 

ATTN 

Corporate  Library 

Aerospace  Oefense  Coninand 

Boeing  Co. 

ATTN:  INW 

ATTN 

R.  Scheppe 

ATTN:  Commander 

ATTN:  ADCOM/INA 

Commander 

•6th  Ml  Group 

ATTN 

ROA 

Air  Force  Weapons  laboratory,  AFSC 

ATTN:  OVC 

Computer  Sciences  Corp. 

• ATTN:  SUL 

ATTN 

H.  Blank 

ATTN:  EL 

ATTN 

Library 

ATTN 

D.  Gan 

Assistant  Chief  of  Staff 

ATTN 

M.  Bassman 

Intel  1 iqence 

ATTN 

G.  Kinal 

Department  of  the  Air  Force 

ATTN:  1NAK 

FSL , Inc. 

ATTN 

J.  Marshall 

Deputy  Chief  of  Staff 

ATTN 

Library 

Operations  Plans  and  Readiness 

Department  of  the  Air  Force 

Genera)  Electric  Co. -TEMPO 

ATTN:  AFXOXFM 

Center  for 

Advanced  Studies 

ATTN:  AFXOK 

ATTN 

OASIAC 

Deputy  Chief  of  Staff 

General  Electric  Co. -TEMPO 

Research,  Development,  X Acq. 

Alexandria 

Office 

Department  of  the  Air  Force 

ATTN 

OASIAC 

ATTN:  AFRDQSM 

Insti tute 

for  Oefense  Analyses 

Deputy  Chief  of  Staff 

ATTN 

D.  Signori 

Pronrams  X Analyses 

ATTN 

Classified  Library 

Department  of  the  Air  force 

ATTN:  PACGC 

Kaman  Sciences  Corp. 

ATTN:  PACSC 

ATTN 

W.  Long 

Electronic  Systems  Division,  AFSC 

Mission  Research  Corporation 

ATTN:  Technical  library 

ATTN 

S.  Gutsche 

Fore inn  Technology  Division,  AFSC 

R X D Associates 

ATTN:  NIIS  Library 

ATTN 

Technical  Information  Center 

ATTN 

R.  Schaefer 

Space  X Missile  Systems  Organization 

ATTN 

R.  Poll 

Air  force  Systems  Command 

ATTN:  SKA 

R X D Associates 

ATTN 

R.  latter 

Strategic  Air  Command 

Department  of  the  Air  Force 

RCA  Corp. 

ATTN:  XPFS 

ATTN 

E . Van  Keuren 

Tactical  Air  Command 

SRI  International 

Department  of  the  Air  Force 

ATTN 

C.  Shorn s 

ATTN:  DRA 

ATTN 

W.  Jaye 

Conmander  In  Chief 
11.5.  Air  forces  in  turope 
ATTN:  XPXX 


TRW  Oefense  X Space  Sys.  Group 
ATTN:  R.  Wehh 

TRW  Defense  X Space  Sys.  Group 
ATTN:  0.  Ilyche 


nist-n 


AD-A0b7  217 


UNCLASSIFIED 

*5067217 


COMPUTER  SCIENCES  CORP  FALLS  CHURCH  V A F/6  17/2 

INVESTIGATION  OF  THE  VULNERABILITY/SURVIVABILITY  OF  SYSTEMS  SUP— ETC (U) 
JUN  78  H BLANK » G KINAL.  M BASSMAN*  D GAN  DNA001-77-C-0015 

DNA-4354F-1C-1  NL 


END 


9-79 


* 


SUPPLEMEN 


INFORMAT 


0>-fo&73L/7 


r 


A 


*• ) 

< 

\ 

ERRATA  SHEET 
for 

DNA  4354F-1C-1  dated  June  1978 

Attached  are  a cover  and  a DD  Form  1473  to  replace  the  existing 
ones.  The  cover  has  been  printed  on  adhesive-backed  paper;  please 
remove  the  back  and  place  it  over  the  existing  cover.  The  DD  Form 
1473  has  been  printed  on  DAVAC;  moisten  the  back  and  place  it  over 
the  existing  DD  Form  1473. 


DNA  4354F-1C-1 

INTEGRATED  NUCLEAR  COMMUNICATIONS 
ASSESSMENT  (INCA) 

Transatlantic  Trunk  Utilization 

Appendix  A— Computer  Program  Documentation 


Computer  Sciences  Corporation 
6565  Arlington  Boulevard 
Falls  Church,  Virginia  22046 

June  1978 

Final  Report  for  Period  February  1977— October  1977 
CONTRACT  No.  DNA  001-77-C-0115 


APPROVED  POR  PUtLIC  RELEASE; 
DISTRIBUTION  UNLIMITED. 


THIS  WORK  SPONSORED  BY  THE  DEFENSE  NUCLEAR  AGENCY 
UNDER  ROTAE  RMSS  COOE  B 363077464  OB9QAXCA10601  H 26800. 


Prepared  for 
Director 

DEFENSE  NUCLEAR  AGENCY 
Washington,  D.  C.  20300 


